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SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION. 
DISTRIBUTION AND LUISE OF THE PDS SOFTWARE. 

NQ COPIES MAY BE MABE OR DISTRIBUTED WITHOUT THE 
HRITTEN PERMISSION OF SPHERE CORP. 


THE PROGRAM DEVELOPMENT SS'STEM CPDS YSAX IS A SET OF 
PROGRAMS RESICING ON ERASABLE PROGRAMMABLE READ ONLY 
MEMORY WHICH ALLOW EVEN THE SMALLEST USER TO USE HIS 
SPHERE SYSTEM AS A COMPLETE COMPUTER SYSTEN FOR THE 
DEVELOPMENT OF COMPUTER PROGRAMS. 

TOWARD THIS END. THE 4 PDS EPRONS CONTAIN A CURSOR 
BASED EDITOR. A MINI-ASSEMBLER. AND THE SPHERE DEBUGGING 
AID (SDA). AS NELL AS A SET OF UTILITY ROUTINES TO DO 16 
BIT MULTIPLY AND DIVIDE, ASCII-TO-BINARY: AND 
BINARY -TO-ASCII ROUTINES. 


MEMORY MAP 


TMP EQU #05 
TMPL EQU #02 


ARB EaQu #04 16 BIT ACC. PSEUDO REG 6. 
ARS EQU #84 -~HI BYTE OF ARE. 

FAR2 EQu tos -~L0 BYTE OF ARB 

FARA Eu #H6 1é BIS ARITH PSEUDO REG A. 
ARI EQu #06 -HI BYTE OF ARA 

ARG E@Qu #87 «ht! SYTE. OF ARR. 

BIGIT EQU #08 BYTE USED BY ASCEIN FOR THP. 
DUTEND EQU #0R END OF OUTPUT BUFFER TEXT. 
BUFADR Eat so0 START OF I.°0 BUFFER ¢PTR3 
BUFEND EQU FUE PTR. TQ END OF I.°0 BUFFR. 
OUTBUF Eli $11 START OF OQUTPLIT BUFFER. 
SRCACR EQU $14 SQURCE FOR TENT MOVES. 
QSTADR EQ $16 DEST. ADDR. FOR TEXT MOYE. 
ENDMEM EQU #1A LAST ADDRES OF REAL MEMORY. 
CSRPTR EQu #10 PTR TQ CURSER ON SCREEN. 
BUFPTR EQu ¥1E TEMP PTR USED BY QUTSTR 
BUFFLO EQU $26 PTR TO END OF LOW EDIT TAT. 
BUFFHI EQU 22 PTR TQ START OF _HI TEST. 

- SCNPTR EQU $24 PTR. TO BUFFRD TNT START. 
SRCASM EQU 26 PTR TQ ASSMSLR SOURCE CQDE. 
OQNDYAL EQU ¥2A HAS ASSMBLR OPERND VALUE. 
SYMYAL EQU #2C VALUE PUT IN ASSM. SYMTBL 
BRKSRAY EQUI $2E TENP SAYE FOR BRKPT DATA. 
BRKAGR EWU #30 ADDDRESS OF BREAKPOINT. 
EDIT = Eu $32 @ IF EPITOR IS NOT RUNNING 
IOQBUFF EQU $35 I-O0 BUFFER FOR DEBUGGER 
PCVAL EQu $40 PROGRAM COUNTER FOR ASSM 


°AGE 


IHHE4 
IHBAS 


SETI 1” 
HHGES 
GAGS 9 
G87 8 
7671 
IaF2 
IGAFS 
IAF 4 
OFS 
Hare 
FOG? 7 
GFE 
STS] sabes 
AISA 
HAASL 
Haass 
HHOHSS 
S/S TS hate 
HARES 
AHGEE 
HBOS? 
HAAS 
pAaSs 
SISTS bes) 
a 

5 he 
HHOIS 
HHS 4 
HABIS 
HOG IE 
FORD? 
ABIES. 
HAGID 
HHL Oe 
HO1 O41 
G12 
ABLAS 
G14 
GG185 
HOLOE 
H616077 


GOS 


Fcae 
Feea 


FCas 


Fcod 
FCaE6 
FCaSs 
FCGA 
Feet 
Fela 
FCi2 


FC2F 


PDS-¥3A 


HFeFEKEFKE 
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EXEC2 


EXECS 


ORG 
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STN 
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INITIALIZATION 


sFCAA 
#$1FF 


SRCASM 
BUFADR 
#07 

$F ORL 
#F FF 
BUFEND 
ENDNEM 


THE INITIALIZATION ROUTINES SET UP THE INITIAL VALUES 
UPON SYSTEM RESET. 


SETS STACK POINTER 

NOWES STK PTR TQ INDEN REG ’ 
SETS ASSEMBLE OUTPUT PTR) 

INIT INPUT BUFFR ADDR. 
INHTL2. KEYBOARD PIA. 


LAST LOCATN OF MEMORY. 
INIT END-OF-EDIT BUFFR.> 
INIT END-OF-MEM ADDR. 5° 


COMMAND LANGUAGE 


THIS EXECUTIVE ACCEPTS COMMANDS FROM THE KEYBORRD TO 


HOME 
CLEAR 
CRLF 
INPCHR 
#01 
ENEC2 
ASMBELR 
#FO5 . 
EXECS 
EDITOR 
#FO4 
EXECL 
DEBUG 


DETERMINE WHAT UTILITY IS TQ BE RUN. INVALID COMMANDS 
MILL SPACE THE CURSOR DOWN ONE LINE. DO NOT SPACE OFF THE 
BOTTOM OF THE SCREEN. 


CSRPTR IS HOMED 

CLEARS SCREEN 

NEW LINE. 

GETS & DISPLAYS CHR. 
TESTS IF ASSEMBLY COMMD. 
SKIPS IF OTHER COMMAND. 
JUMPS TO ASSEMNBL PRROGRN. 
Tests IF CONTRL “Ee” 
SKIPS IF NOT EDIT CMD. 
JUMPS TO EDIT TEXT. 
TESTS FFOR CONTRL ’D% 
LOOPS BACK IF NOT DEBUG. 
JUMPS TO DEBUGGER. 
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THE EDITOR 


THE EDITOR ALLOWS INPUT FROM THE KEY'BORRD INTQ A 
BUFFER MEMORY. INPUT IS DISPLAYED ON THE SCREEN. WHEN 
IT IS TYPEC IN, THE SCREEN TEXT CAN THEN BE EDITED BY' USE 
OF THE CURSOR. WHEN THE SCREEN IS!) FULL OR EDITING IS 
FINISHED, THE DATA IS SCROLLED OFF THE SCREEN INTO THE 
EDIT BUFFER. WHEN TEXT IS SCROLLED OFF THE TOP OF THE 
SCREEN. IT IS STORED FROM THE BLIFFER ADDRESS POINTER 
CBUFADR) TO THE LOW BUFFER POINTER ¢(BUFFLO),. BUFFLO, 
POINTS TO THE END OF TEXT + ONE CI. &. IT POINTS TQ THE 
FIRST UNUSED BYTE). WHEN IT IS SCROLLED OFF THE BOTTOM 
OF THE SCREEN. IT IS STORED IN THE TOP OF THE EDIT BUFFER. 
THE TEXT GOES FRROM THE HIGH BUFFER POINTER ¢(BUFFHI> TQ 
THE END OF BUFFER POINTER ¢BUFEND). BUFFHI POINTS TO 
THE END OF TEXT - ONE I.E. IT POINTS TQ THE LAST UNUSED 
BYTE IN THE BUFFER*. WHEN THE TEST IS SCROLLED UP 
OFF THE TOP OF THE SCREEN. TENT IS TAKEN FROM THE HIGH 
RARER OF THE EDIT BUFFER AND DISPLAYED ON THE LAST LINE OF 
THE SCREEN. WHEN TENT IS SCROLLED DOWN OFF THE BOTT@M, 
TEST. IF ANY EXISTS: IS MOVED FROM THE LOW EDIT BUFFER 
AREA TO THE TOP LINE OF THE SCREEN 


| aii BUFFLO~ BUFFHTY eh 


LITINIE] |BIVIF IF IE [Rig DIRFITIA | > 


POINTERS USED 


CSRPTR POSITION OF CHARACTERS INSERTED ON THE SCREEN. 
SCNPTR POSITION OF START OF EDITED TEST ON SCREEN 
BUFADR START OF TEXT BUFFER IN MAIN MEMNORS' 

BUFEND END OF TEXT BUFFER IN MAIN MEMORY’ 

BUFFLO END OF TEXT SCROLLED OFF TOP OF SCREEN 

BUFFHI START OF TEXT SCROLED OFF BOTTOM OF SCREEN. 
BUFLEN NOT CURRENTLY USED 


EDITOR COMMANDS 


“UP ARRON" MOYES CURSOR UP ONE LINE; CSRPTR GETS 
CSRPTR-32; CALL NDRFLO. 


"DOWN ARROW" MOYES CURSOR DOWN ONE LINE; CSRPTR GETS 
CSRPTR+S2; CALL OYRFLO. : 


“RIGHT ARROW" MOVES CURSOR ONE POSITION RIGHT: CSRPTR 
GETS CSRPTR+1; CALL OVRFLO. 
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IH167 * "LEFT ARRON" MOYES CURSOR ONE POSITION LEFT; CSRPTR 
BATES * GETS CSRPTR-1: CALL NDRFLO 
5 B * 
pe "8 * “CONTROL & LEFT ARROW CON KEYBOARD)" LEFT JUSTIFY CURSOR; 
Nad 71 * CSRPTR GETS CSRPTR TRUNCATED; iis NDRFLO FOR SCNLOC CHK. 
AOL 72 #8 
W173 * "PUTCHR" OQOLITPUTS CHARACTER: CSRPTR GETS 
IL PF * CSRPTR+1; GOES TQ OVRFLO 
IB1 7S * 
IL FE * "ENDCHR" TERMINATION CHAR: CLEAR EDIT FLAG: 
AGL 7 7? * EXIT THE EDITOR. : 
I917°S * 
9179 * “HOME" HOMES CURSOR POINTER: CSRPTR GETS E@sea; NDRFLO 
49188 * 
Petco : "CLEAR" CSRPTR TO END OF THE SCREEN GETS SPACES. 
1H182 
AHLSS * "CTRL I" INSERT A LINE AT THE LAST LINE ON THE SCREEN; 
cies : CALL OVR1 (SCROLLS UP ONE LINE); CSRPTR GETS E1E®. 
WIT SS : 
IB1LSE * "CTRL DBD" DELETE LAST LINE: SCROLL DOWN CUNDR2> 
41877 * .CSRPTR GETS ELE@ 
IG1ES * 
IH189 8 
IH 98 * 
HL 94 a 
WAL IS * OVERFLOW CHECKS IF SCROLL UP IS NEEDEO;. IF IT IS: IT 
HALAS * SCROLLS UP AND NOWES DATR TO & FROM THE BUFFERS. 

* 
rss * OYRFLO: IF CSRPTR < E286 THEN RETURN: IF EDIT IS ON THEN 
AALS * OVR1: BUFFLO+ GETS SCNPTR TQ “CL. R. 7%: 
HH19;7 * DSTADR GETS CSRPTR GETS ELE (LAST LINE ON SCREEN); 
FHLIS - * IF EDIT IS GN AND BUFFHI < BUFEND THEN MOVE THE TEST 
NALID * FROM SUFFHI TO “C.R. “ TO THE LAST LINE. 
ASH * 
Sy * 
AAZOS * 
IHS HF * UNDERFLOW CHECKS IF SCROLL DOWN IS NEEDED AND MOVES 
HAZOS * DATA TQ AND FROM THE BUFFERS. CURSER HAP BEEN 
DELO * MOVED OFF THE TOP OF THE SCREEN AND IS NOW PUT AT THE 
AZo? * HOME POSITION ON THE SCREEN. 
HHL2HS wv 
HALAS * NDRFLQ: IF CSRPTR > DFFF THEN RETURN ¢GO TO OVRFLQD; 
HHSLA * JF EBIT FLAG IS. On “THEN MOYE LAST LINE TO BUFFHI 
AAL211 * ON DOWN: SCRLON: CSRPTR GETS E888; NOVE LINE FROM 
HAL12 * BUFFLO TO FIRST LINE ON THE CRT. 
HALLS * 
HAl1 4 7 
A215 * 
DH216 * 
98217 * NOTE: DON“T SCROLL OFF SCREEN IN EXEC UNTIL AFTER 
H218 * THE EDITQR HAS BEEN RUN 
~~ 9 * , 
Devel * NOTE: EVERY LINE MUST HAVE AC. R. ON IT. 
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CE E0a@ HOME LDN — #¥EOaa 
DF it STX -CSRPTR 
29 RTS 

* 

* 
Cé 60 CLEAR LDA B #60 
CE E208 LDX #$E200 
09 CLEAR1 DEN 
> aa STAB BSN 
9c 1c CPX CSRPTR 
26 AS} 8 BNE. CLEAR 
39 5 RTS 

* 

* 

* 

# GETCHR 

# MOVING 

* 
DE 1C °GETCHR LDX —CSRPTR 
62 9G — CoM 8&8 
CE 26F8 LDX #9968 
a9 >GET1 \ DEXeenenT KReeistet 
2F Fe \te BEQ*”” “GETCHAR; 
7D FaD4 TST  - $FG81" 
DA FS BP LS. GET 15 
PE 1c LDX  CSRPTR 
Aé aa LDA &s 
2A a2 _. BPL_GET24 
és aa com a8 
Be FaaebGeT2 LOA A $Feoo 
33 RTS 

* 

* 

* 

* 

* 

* 
PE 8C EDITOR LDN — BUFADR 
DF 28 STX  BUFFLO 
DE GE LDX  BUFEND 
DF 22 STX  BUFFHI 
SD CS REEDIT BSR HOME 
80 ce BSR CLEAR 
97 32 EDITRD STA A EDIT 
DE 10 EDITIN LOX  CSRPTR 
DF 24 STX  SCNPTR 

* 

* 
SD D1 EDREAD BSR -GETCHR 
$1 1B | ENDCHR CHP A #$4B 
26 04 BNE ED4 
7F Ba32 CLR EDIT 
39 RTS 
SD 82 EDL BSR INSERT 
20 F2 BRA EDREAD 


LORDS HOME POSITION. 
STORES HONE IN CURSOR PTR. 
RETURNS TO CALLER. 


LOADS BLANK ¢C.R. >. 
LORDS END-OF-SCREEN PTR. 
DECREMNENTS BLANKING PTR. 
BLANKS LOCATION. 


TESTS IF DONE. Loc ¢ 


BRANCHES BACK IF NOT DONE. 
RETURNS. 


INPUTS A CHARACTER INTO ACC A NITHOUT 
THE CURSOR. AND BLINKS THE CURSOR. 


LOADS CRT CURSOR POSITION. 
COMPLINENT ¢FLASH POSITION). 
LOADS BLINK COUNT YALUE. 


23COUNT GETS COUNT. 


RESETS CTR WHEN TIMED QUT. 
TESTS IF A CHAR TYPED IN. 


° BRANCH IF CHAR NOT ENTERED. 


LOADS CURSOR POSITION. 
TESTS IF BLINKED ¢SOLID). 
SKIPS IF NOT BLINKED. 
CLEARS THE CHARACTER. 
LORDS A WITH CHAR. 
RETURNS TO CALLER. 


EDITOR IS THE MAIN ENTRY POINT FOR EDITING 


BUFFLO GETS THE 

VALUE OF BUFRDR. 

BUFFHI GETS THE 

VALUE OF BUFEND 

ENTRY POINT FOR 

RE-EDITING TEXT. 

TURNS ON EDIT MODE . if <> 4 
SETS SCNPTR TO CSRPTR. 


pNVET 
if 


® GETS CSRPTR & A GETS CHR. 
TESTS FOR AN “ESC" CHAR. 
SKIPS IF NOT EDIT END 
TURNS OFF®W EDIT FLAG 

EXITS THE EDITOR. 

EDITS CHARACTER. 7 

GOES FOR NEXT CHARACTER. 
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e02re FOLLOWING IS THE MAIN EDITOR EXECUTION LOOP. 
g275 
Hazea * 
PAPSL * 
bie * 
ances * 
Q9284 FCSA $1 99 INSERT CNP A ##O9 TESTS FOR A CONTROL “I. 
88285 FCS2 2D 16 BLT DELETE SKIPS TO DELETE CONMD 
BA28E FCS4 2E a2 BGT CR SKIPS FOR NEST TEST. 
Ga297 FCSé 20 78 BRA OYR4 SCROLLS UP ONE LINE 
Gass * 
Ga289 * 
GH299 FCSS 81 OD CR CHP A #$aD TESTS FOR CARRIAGE RETURN. 
88291 FCSA 2D AG BLT HOME = SKIPS IF HOME CSR CONMD. 
ga292 FCSC 2E a2 BGT  RTCSR GOES TO NENT COMND TEST. 
GO293 FCSE 86 68 LOR A #868 LOADS INTERNAL C.R. VALUE 
Baas 
G8295 * 
G8296 FOIA 81 12 RTCSR CMP A #$12 TESTS FOR RIGHT ARROW 
GO297FC92 2D 2 BLT  SUB32_ SKIPS IF AN "UP ARRON". 
HG29S FC94 2E Hs BGT  LFTCSR SKIPS IF A "LEFT ARROW" 
@8299 FC96 DE 1C = RTARRO LDS = CSRPTR~— LOADS:_-CURSOR POINTER 
GAB8 FOSS 28 1F BRA = PUTCHA. = STORES & INCREMENTS. CSR. 
RaS64 * 
gOsO2 x ) 
GO203 FC9A SD 3F DELETE BSR UNDR2 ~— SCROLLS DOWN 1 LINE 
gazed FCSC 28 6A BRA OYR2 CSRPTR GETS EL1E8 (LAST LIND. 
GaZ05 
GAZB6 * 

a7 FCS9E $1 14 LFTCSR CMP A ##14 TESTS IF "LEFT ARROW" 
GMGS FCAG 20 26 BLT  ADD32 SKIPS IF "DOWN ARRON" 
GA309 FCA2 2E 83 BGT  CLER . SKIPS FOR NEST TEST. 
@8318 FCAd a9 DEX SUB. 1 FROM CSRPTR 
e0sd1 FAS 26 13 BRA  PUTCH2 = STURES CURSER POINTER 
BAS12 
@O313 FCA? $1 1F CLER CMP A #$1F TESTS FOR CTRL BACK ARROW. 
B8Z14 FCA? 2D sD BLT CLEAR GOES TO CLEAR SCREEN. 
88315 FCAB 27 62 BEQ  LFTJST MOVES CSR TO LEFT OF SCREEN 
BASLE * 
80347 * ALL OTHER CHARACTERS FALL THRU TO PUTCHR 
gas1e * 


é> 
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Bazz20 * PUTCHR DISPLAYS A CHARACTER ON THE CRT DISPLAY AND 
az24 o INCREMENTS THE CURSER POINTER AS WELL AS CHECKING 
ans22 * AND HANDLING CARRIAGE RETURNS. 

OM eq * | 

gaz25 — a 

BOS26 FCAD DE 10 PUTCHR LDX = CSRPTR = LOADS OLD CSRPTR. 

68327 FCAF $1 8D CMP A #¥0D TESTS FOR EXTERNAL C.R 

80228 FCBL 2? a4 REQ  CRLF1 SKIPS TODO ACR LF 

@8329 FCB? AF AaB STA A OS DISPLAYS CHAR ON SCREEN 

Bassa FCBS $1 6a CHP A #¥60 TESTS FOR INTERNAL ©. R. 

@a331 FCR? 27 5D CRLF1 BEQ CRLF SKIPS FOR CR. LF. , 
GOR32 FCRS O8 PUTCHL INK INCREMENTS CSRPTR 

@@333 FCBA DF 10 PUTCH2 STX  CSRPTR SAVES NEN CSRPTR. 

Bas34 FCBC 28 12 BRA -NDRFLO TESTS FOR OVRFLO & UNDRFLO 


Gas3s6 FCBE DE 10 SUBS2 LDN CSRPTR LOADS CURRENT CRSR POSITION. 
Gussr FCCA Cé 2h LOR B #382 LORDS LOOP COUNT. 
HBGSS8 FCCL O9 SUBS2A DEN DECRIMENTS CSRPTR 
GASS9 FCCS SA- PEC B = DECRIMENTS LOOP COUNTR. 
Gasda FCC4 26 FC BNE SUBS2A SKIPS BACK IF NOT DONE. 
HGSdL FCCE 2h 86 ERA ARR2 SKIPS TQ CHECK UNDRFLO. 
Gas4ds FCCS C6 2H ADPS2 LDA B #32 LOARS LOOP COUNTER 
Hasdd FCCA as RODSZA INS INCRE. CSRPTR IN INDEN. 

"45 FCCB SA DEC B DECRIMNENTS LOOF COUNTER. 


ert FCCC 26 FC BNE ABDS2A SKIPS BACK IF NOT DONE. 
GG347 FCCE OF 10 ADDZ2 STN ESRPTR SAVES CSRPTR 


pas4S * NDRFLO CUNDERFLOW) CHECKS FOR THE CURSOR GOING OFF THE 
aazsa * TOP OF THE SCREEN. THE INDES REG. CONTAINS THE CURSOR 
BOZ51 * POINTER WHEN THE ROUTINE IS ENTERED. 

A352 * 

GO353 — co * 

@O254 ‘FCD@ 8C EGA NDRFLO CPS #6008 TESTS IF CSRPTR >= DFFF 

GAS5S FCODS 2C AB BGE  OVRFLO SKIPS IF CSRPTR GREATER. 

GAR56 FCDS DS 32 LDA B EDIT TESTS IF EDITOR I5 ON 

W835? FCD?7 27 O2 BEQ  UNDR2 SKIP TO EXIT IF EDITOR OFF. 


G@A@359 FCDS 8D oP BSR NOYE2 MOVES LAST LINE TO BUFFHI. 
BASSI FCOR BD FDFS UNDR2 JSR SCRLON MOVES ALL LINES DOWN ONE 
@a@sé6ea FCDE SP SA BSR MOVES MOYES BUFFLO TQ TOP OF CRT. 
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A362 * , OVERFLON CHECKS FOR SCROLLING UP (CURSOR IS OFF 
BARES * THE BOTTON OF THE SCREEN); INDEX CONTAINS THE CURSOR 
god * POINTER UPON ENTRY’. : 
JISES ike * 
BBS66 — # 
HaSEr FCEG SC E288 OVRFLO CPX ##E200 TESTS AND EXITS IF 
B@368 FCES 2B 12 BNI OVREST | CURSOR ON SCREEN. 
BOS69 FCES 8D 14 BSR UYRA DOES OVR1 CHECKING. 
G837A FCE? DS S2 LDA B EDIT TESTS IF EDIT IS ON 
HaSF1L FCES 27 ac BEQ OVREXT EXITS IF IT IS OFF 
Has7?2 FCEB DE 22 LDX BUFFHI LOADS HI TENT POINTR 
HASFS FCED 3C BE CPX BUFEND TESTS IF PTRS NOT EQU 
BAs%4 FCEF 27.86 BEQ OVREXST EXITS IF NO TEXT. 
HASrS FCFL SD 44 BSR MOVELA = MOYES CHRS TO LAST LINE. = ~\ 
GA37& FCFS DE 14 LDX SRCRDR RESETS NEW BUFFHI 
BOS?? FCFS DF 22 STN BUFFHI LOCATION. 
BG378\FCFF 39 OVRENT RTS EXITS BACK TO EDIT. 
BAS7O \—c<8 * 
Hasea * 
HASS1 * 
BaS82 * OVR1 DOES ACTUAL SCROLLING UP. 
BASES * 
HO384 FCFS Dé 32 OVRI LDA B EDIT TESTS IF EDIT IS ON 
HHSES FCFA 27 8A BEQ OVRIA SKIPS IF EDIT OFF. 
Gasse FCFC DE 28 LDw BLUFFLO LOADS TEXT PTR LOW 
HAS FCFE DF 16 5 ° YESTINATION OF TEXT MOVE. 
HasSs Fee DE 26 . SOURCE. FOR MOVE. 

89 FDeS SD 34 BSR MOVEL MOVES LINL TO BUFFFLO 
aetseFpad DF 28 STS BUFFLQ = SAYES NEW BUFFLO PTR. 


HHS9L FORE SP SS OYRIA BSR SCRLUP SCROLLS SCREEN UP 1. 
G@s92 FOS CE ELEG OVR2 LDN #$EL1EG CURSOR GETS PUT ON 


BASIS FREE DF 1C STN CSRPTR LAST LINE. 

GEsS94 FDED DF 16 STX DSTADR INIT DEST FOR NEXT MOVE. 
BASIE * FOLLOWING MOVE THE CURSOR. 

46397 * 

BOS98 FDGF D6 1D LFTJST LOA B CSRPTR+1 LOADS LO BYTE OF PTR. 
G@8s99 FDi1 C4 Ea AND B ##E0 TRUNCATES TO LEFT OF LINE 
Ba4dGR FOIS Dr? 1D STH B CSRPTRtL SAVES L. J. ED PTR. 

GG4081 FDIS s9 RTS RETURNS TO EDITOR 

Hada2 * 

GG4GS * 

BO404 FD16 SP Ba CRLF BSR AODS2 LINE FEED. 

64405 FDIS 20 FS BRA LFTIST CARRIAGE RETURN. 

~/ 


£4 
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THE CRT. 


LDN 
STN 
LOW 
CPN 
BER 
DEN 
CPN 
BEG 
DEX 
LOA 
CMP 
BNE 
INS 
STN 
BRA 


LDN 


' MOVEST RTS 


SCNPTR 
OSTADR 
BUFFLO 
BUFADR 
MNOVENT 


BUFADR 
NY'S2 


GN 
##60 
NYSd 


BUFFLUO 
NOVEL 


MOVES 


IN THE INDEX REG. 


DSTADR 
#F60 
MOVE 


MOYE INSTRUCTIONS MOVE FROM GNE BUFFER AREA TO 
ANOTHER BUFFER RARER. 


MOVES CALCULATES THE SOURCE ADDRESS OF THE DATA IN 
BUFFLO ¢IF IT EXISTS) FOR MOVING TQ THE FIRST LINE ON 
MOVE 1 IS THEN ENTERED TO DO THE MOMING 


CSRPTR GETS EXG8 CHOME). 
SETS MOVE RODRESS. ’ 
LOADS LO BUFFR ACDR. 

TESTS IF DATA STRING. 
EXITS IF EMPTY. 

MOVES BACK FROM BLANK 
TESTS IF SROADR = BUFFADR 
MOVES IF STRET OF LINE. 
NEXT LOWER CHAR. 

GETS SQURCE CHAR FOR TEST. 
TESTS FOR "Cc. k, 

SKIPS GAUK UNTIL "CR, ”. 
POINTS BACK TO FIRST CHAR 
SAVES LQ RAODRESS 

NOYES DATA. 


MOVEL MOYES A SET OF CHARACTERS FROM EITHER THE TOP 
LINE OF THE SCREEN TO BUFFLO OR FROM BUFFHI TO THE 
BOTTOM LINE OF THE SCREEN. THE SOURCE RACORESS IS PASSED 
THE DESTINATION ADDRESS IN DSTARODR. 
AND THE MOWE IS TERMINATED BY A "CLR." IN THE LINE OF 
TEXT BEING NOVED,. 


LOADS SOURCE ADDRESS INTO NE 
POINTS TQ NEXT SQURCE CHAR 
LOADS SOURCE CHARACTER. 
SAVES THE SOURCE POINTER. 
LORDS DESTINATION AOCRESS. 
STORES CHAR. IN DESTINATION. 
NEXT DESTINATION RODRESS. 
SAVES DESTINATION PTR 

TESTS IF MOVE FINSHED CCR). 
SKIPS BACK IF NOT DONE. 
RETURNS TO CALLER. 
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P43? 
ee yi? 
Bul4 So 
80468 
HA4EL 
HG462 
HA4FES 
AG4e4 
OO465 
G0466 
Bade? 
Ga468 


HAF ES | 


Hadqdra 
Had PL 
Aad Fre 
a4 FS 
Abd 74 
ba4 rs 
Abd 76 
adr? 
4478S 
H4 79 
O48 
BO4s1 


B7482, 
rh \ 


ww 


aads4 


OB495 


HO48E 
G43? 
HFSS 
ga4dsg 
BAqd90 
BA4I94 
HH4S2 
GA493 


HH494 


G11 


FRag | 


FO49 
FD4B 
FO4AC 


FR4AE & 


FD4F 


FDS1 26 


FDSs 


FDSS E; 
FDS? 2S 


FDSS 
FDSA 
FDSB 


FDSD 2 
FDSF 


Y 


<0OS ¢ 


FDEG 
FD63 
FD&S 


FDe? & 


FOES 
FDS&B 
FRED 
FD6F 
FOr 


EY !2 
r\ 


PDS-VSA 


Enoa 
28 


* Be 


DURING 


FREEEEEEEEESE 


BSR 
CLR 
PSH 
LDA 
INS 
CMP 
BNE 
LON 
STA 
DEX 
STN 
PUL 
CNP 
BNE 
RTS 


Dp MoD 


MOYES SUBROUTINE 


THE MOVES SUBROUTINE MOVES THE LAST LINE ON THE 
SCREEN TQ THE HIGH AREA OF THE BUFFER ¢(BUFFHI. DURING 
SCROLLING. 


THE TEXT IS TEMPORARILS' STORED ON THE STACK 


THE MOVE 


OVR2 
STACK 
a, & 


#F60 
NY 


BUFFHI 


Ba N 
BUFFHI 


#09 


MWS 


THE NOVE.IS TERNIINATED BY A "COR. ". 
THE TEXT IS STORED AT BUFFHI ON DOWN. 


®% GETS ADDR OF LAST LINE. 
SETS TERMINATION FOR 
POPPING. 

LOADS SOURCE CHAR 

POINTS TQ NENT CHAR 
TESTS IF CINE TO "t. k&. * 
MOYED TO STACK 

INIT. DESTINATION. 
STORES CHAR. 

POINTS TQ NEXT LOCATION. 
UPDATES BUFFER PTR. 

GETS NEST CHAR. 

TESTS IF ALL CHRS STURED 
SKIPS BACK IF NOT STORED. 
RETURNS TO CALLER 


SCROLLUP MOVES ALL LINES UP 1. & CLEARS LAST LINE. 


LDN 
LDA 
STR 
INS 
CPX 
BNE 
STN 
JSR 
RTS 


#FEH00 
F208 


Ga. 


#FE1EO 
SCRP1 
CSRPTR 
CLEAR 


SETS CRT HOME POSITION 
GETS CHAR FROM NENT LINE 
STORES CHAR ON PREY. LINE. 
POINTS TO NENT LINE. 

TESTS IF MOVE BONE 

GOES BACK IF NOT DONE. 
SETS CSRPTR T@ LAST LINE. 
CLEARS LAST LINE. 

EXITS. 
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90496 
pu419F 
aged 
98499 
aasaa 
pa5H4 
aasa2 
A503 
pasad 


aasas 


BeS06 
88507 
BasSas 
G@5a9 
8asLe 


@G511, 


pa513 
oa514 
AB515 
Ga5i16 
ROSLF 
pa518 


49 
awa2a 


H8S521 


GO522 


GOS2S 
GO524 
BO525 
HG526 
BaS27 
8@528 
Has29 


G12 


FD?s 
FRF6 
FDS 
FDFA 
FDPC 
FOrC 
FDS8o@ 
FRS2 
FDS4 
FOSS 
FDS? 
FRSA 
FRSC 


FDS8D 
FDSF 
FDS4 
FDS 
FD96 


FOSS § 


PDS-V3A 


* 


SCRLDQHN MOVES ALL LINES DOWN ONE RAND 


: ‘ CLEARS THE TOP LINE ON THE SCREEN. 


E&6é be SCROL 
r eb 


DF IAC 


SC DFFF 
26 FA 
Ce 6a 
EF ae 


SC EBIF 
26 Fa 


FD9A 27 


FOSC 


FOSD : 


FOSF 
FDRG 


3a eh OUT 


%¥ * F 


CE .ELDF SCRLDN LOX ##EIDF INITIALIZES THE POINTER. 


LOA B BN LOAPS DATA TU:BE MOVED. 
STA B #20. N NOYES DATA DOWN ONE LINE. 
STA CSRPTR = SAVES CURSOR. | 

DEN POINTS TQ NEXT BY'TE. 

CPX #EDFFF TESTS IF MOYE FINISHED. 
BNE SCRD1 SKIPS BACK IF NOT DONE. 


LDA B ##68 LORDS BLANK TO CLEAR LINE. . 
INN POINTS TO NEXT CHARACTER. 
STAB &SN CLEARS BYTE ON LINE 1. 


CPS #FEOLF TESTS IP LINE I CLEARED 
BNE SCRD2 SKIPS BACK IF NOT CLERRED 
RTS RETURNS. 


QUTSTRING PRINTS QUT THE STRING BETHEEN THE 
OUTBUF POINTER AND THE BUFEND POINTER 


LBW QUTBUF BUFPTR GETS START OF TEST 
LPR A EN LOADS CHAR TO BE PUT OLIT 
STA BUFPTR SAVES SQURCE POINTER 

JSR PUTCHR PRINTS CHARACTER. 

LOX BUFPTR RESTORES POINTER. 

CPN QUTEND = TESTS FOR END-OF-TENT. 


BEQ QUT? ESITS IF END OF TEXT. 

INS INCRE. PTR TO NEXT CHAR 

BRA OUT GOES BACK FOR NEXT CHAR 

RTS EXITS ROUTINE. 

NOP UNUSED LOCATION. Ad= 62 


END OF EDITOR PROGRAN. 
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HASSL 
k ys2 
HSS 
GOSL4 
BESSS 
OO536 
OBS" 
GAS33 
HASSS 
66548 
Has44 
Gas42 
HaS4s 
8A544 
boS4S 
8A546 
Has4 > 
GH548 
pASdo 
8assa 
HaSSL 
Aass2 
HASSS 
Bassod 
HoASs5 
G4556 


gasso 
Has6a 
Ha56L 
68562 
GO56E 
88564 
HOSES 
@G566 
08567" 
G8568 
GOSE9 
6asrea 
BOSF1 
88572 
HGS? S 
GG574 
GASPS 
GE576 
GOSr? 
44578 
88579 
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THE MINI-ASSEMBLER 


THE NINI-ASSENBLER IS A FINED-FIELD ONE INSTRUCTION 
PER LINE 2 PASS ASSEMBLER. THE MINI-ASSSEMBLER FORMAT 
IS DESCRIBED ON PAGES 9-2 AND 9-3 [OF THE SPHERE 
OPERATORS REFERENCE MANUAL. 

THE THO PASSES ARE REQUIRED TQ FORM THE LABEL 
RAODRESSES. THE SECOND PASS EQUATES THE ADDRESS FOR 
LABLES REFRENCED BEFORE THE’ ARE DEFINEG IN THE PROGRAM. 


ON ENTRY: 
SRCASM = ADDRESS OF SOURCE TENT TO BE ASSEMBLED. 
BUFFLO = ADDRESSED OF OBJECT CODE PRODLICED. 


° ON EXIT: 


PCVAL (PROGRAM COUNTER VALUES = LAST LOCATION OF 
THE ASSEMBLED OBJECT FPROGRAN. 


ALGORITHM: 


*ASMBLR: SET PASS COUNT TO ZERO; SET PCYAL TQ DSTASM: 
*ASMNLA: OPERAND VALUE FORMED IN “ONDYAL": 

* A GETS CHAR IN *6 COPERAND TYPE): N GETS N+? 

* IF CHAR Né& IS A "B" THEN ONDVAL GETS WALUE FROM SYMBOL 
sd TABLE ELSE ONDYAL GETS YALUE FROM ASCBIN CONVERSION: 
*SYMNEL: EQUATES SYMBOL CPC VALUE IS THE " “ SYMBOL 
*CLABELJ) Tl) A LABEL VALUE: 

* SYNVYAL GETS PCYAL: 

* IF (1) IS AN "=" THEN SY'NVAL GETS ONDVAL: 

* IF C41) IS NOT A "=" OR A SPACE THEN IF SECOND PASS THEN 
* €EXIT ELSE START SECOND PASS: 

* LABEL ENTRY IN SYMBOL TABLE GETS SS'MVAL: 

*LDOP: PUT OPERATION CODE INTO THE OBJECT CODE: 

* CONVERT NC2ZI-NC3Z) INTO BINARY 

* SAYE PCYALs 

SFC GETS PF. &. #43 

*OPRND: FORM QPERAND IN OBJECT CODE: 

* FORM ONDVAL INTO PROPER SIZE BASED ON CODE IN X¢6); 

* STORE NEW OQPERAND VALUE IN MEMORY: 

e F.C. GETS PoC. +2 OR 23 

* GET NEXT LINE OF SOURCE: 

* GO TQ ASM1A: 

* 

* 
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O°591 FOAL 7F 8804 ASMBLR CLR AR INIT. PASS CTR TO FRST PASS. > 
\_32 FDA DE 26 ASML LON BUFFLO SETS PO CNTR TO START OF 
ANS? FDA DF 48 STN PCWAL «= OBJECT CODE. 

GA584 FDAS DE 26 LDS  SRCASM LOADS ADDR FOR FIRST LINE 
BA5SSS FOAR DF O82 ASMLA STS — TMP4 SAVES ADDR OF, CURRENT LINE 
HA586 FOAC AE OS LDA R G&S LOADS SYMBOL /CLABEL). 
WSS? FORE ES BF LDA B OFS LOADS OPERAND TYPE CODE. 
Aa588 FORA C4 40 CMP BR #$°R IF @ LOADS DATA IN SYMBOL 
GH589 FDB2 27 6B BEQ  INDADR ADDRESS. GOES TO SY MeL 
@G599 FOB4 a3 INN SETS INDEN TO START OF 
HG591 FDBS as INN OPERAND NUMBER 

GG592 FDBS as INN 

GA592 FOBT as INN 

GA594 FRES a8 INN 

Ba595 FBS as INK 

Ga596 FDBA a8 INN 

Ha597 FDBE BD FF22 JSR ASCBIN CONYRTS # TQ BINARY IN B-A 
@G598 FDBE DF 2A ASMIB STA B ONDWAL STORES OPERAND VALUE IN 
ga529 FOCA 97 2B STA A ONDYAL+41 ONDVAL 

aaéoa * 

HOEOL * 

aaga2 * 

ABEOF * FOLLOWING FORMS THE WALUE FOR THE LABEL. 

pasad * 

GO605 FOCZ DE 62 SYMBL LDN — TMP4 LOADS ORIG LINE PTR INTO & 
GAEAS FOCI AS 8a LDA A OS LOADS SYMBOL ¢LABEL). 

. OF FOCE ES OL LDA B 4S LOADS LABEL CONTROL CHAR. 
aweas FRCS DE 4a LOS  PCVAL — LABEL VALUE GETS PCWAL. 
BEGGS FOCR DF 20 STN  SYMVAL 

BG618 FRCC C1 3D. CNP B #$¢= TESTS IF LABL IS EQUATED. 
QG611 FOLE 26 as BNE ASM? SKIPS IF NOT EQUATED 

G8612 FRDA DE 2A LDS  ONDYAL = LABEL VALUE (SYMVAL) GETS 
O8612 FOOZ DF 2C STS  SYMYAL = THE OPERAND VALUE. 

AG614 FOD4 28 GE BRA ASN CONTINUES EVALUATION 
BGS15 FODE C1 20 ASM? CMP RB ot? TESTS FOR END-OF-PROGRAN 
AG616 FODS 27 HA BEQ ASHE SKIPS IF SPACE ¢NOT END). 
BA617 FODA 7D Baad TST ARS TESTS IF SECOND PASS. 
GG618 FDDD 27 G4 BEQ  ASM2A ENITS IF SECOND PASS 

HG619 FDDF 39 RTS 

G@8620 FDEO DF O4 ASMZA STAB ARS SETS CTR TO SECOND PASS. 
OG621 FDEZ 28 CA BRA ASM GOES BACK FOR SECOND PASS 
aaé22 * , 

HaS22 * 

aaée4 * 

a0625 * FOLLOWING PUTS THE LABSLE VALUE IN THE SYNBOL TABLE 
ga626 * 

WU62? FDEd 8D 41 ASMS BSR SYMPTR 8 GETS SYMBL TABL ENTRY ADR. E 
BA623 FDES 96 2C LDA RA SYMVAL = STORES THE LABEL 

98629 FOES AF Oa STARA &X ADDRESS ¢(SYMVAL) INTO THE 
8638 FDER 96 20 LDA A SYMVAL+1 SYMBOL TABEL. 

@8631 FDEC AF AL STAR 18 


el 
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— * FOLLOWING FORMS THE OPERATION CODE. 
<4 * 

Pees FDEE 


DE 82 LDOF LON ~~ TNP4 LOADS ORIG LINE POINTER. 

GGE36 FOFO O8 INS SETS X TO POINT TO 

QO62? FDFL a8 INX THE OP CODE CHARS 

HG629 FOF2Z a8 INS | 

GG639 FDFS AS ae LOA. N GETS OP COPE CHAR INTO A 

Aaé4a FDFS S81 20 CMP A ORES TESTS IF OP COPE ENISTS 

HG641 FFF 27 OA BEQ2 = OPRND ~—s SKIPS IF NONESISTANT. 

GG642 FDF9 BD FF22 JSR ASCBIN CONVRTS OP CODE TO BINARY. 
aa643 FDC DE 40 LDS = PCVAL = LOADS POINTR TO OBJECT CODE. 
88644 FDFE A? 8d STA AN STORS_OP_ INTO OBJECT CODE, ame 
age4s FEGG as INS SETS TO NEXT OBS CODE LOCTN. 3 Ael Rog 
aG64e FEBL DF 40 STS - PCVAL «= SAVES PC. POINTER. E20 
aaéa? * 

Ha648 * 

aaedo * 

aassa * FOLLOWING STORES INTO THE OBJECT CODE THE SIZED OPERAND. 
paSSL * 

G@G652 FEQZ DE G2 OPRND LDX TMP LOADS SOURCE LINE POINTER. 
ABE5S FERS Ae G6 LOR AON LOADS OPERAND SIZE CHAR 

Ba654 FEG? DE 40 LDN = PEWAL «= LOADS NS WITH OBJ CODE PTR. 
AGES FEO 81 45 CHP A HEE TESTS LENGTH TYPE. 

GG656 FEGR 2E 34 BGT  RELTIV SKIPS IF AN "R" OPERAND. 

Ha657 FEGD 27 24 BEQ EXTEND SKIPS IF AN "E" SIZE OPRND 
A658 FEGF 81 44 CMP A #S“D TESTS IF SIZE CHR ENISTS 

F “59 FE11 27 22 BEQ DIRECT SKIPS IF "D"COMND EXISTS 

eee * 

HOE6L * 

aa662 * ! 

HOS63 * FOLLOWING GETS THE NEST LINE 

aaéed * 

BU6E5 FELZ DE 82 ASM4 LON — TMP4 LOADS START OF LINE IN 

aaé6e FE1S 48 ASM4A INN ORDER TO FIND NEXT LINE. 
HOSE? FELE AS 8 LDA A aN LOADS CHAR FROM SORCE LINE 
GG8668 FELIS 91 68 CMP A #860 TESTS FOR A CARRAGE RETURN 
QB6E9 FELA 26 F9 BNE  ASNYA = SKIPS BAK UNTIL C.R. FOUND. 
88678 FEIC as INS POINTS TO FIRST LINE CHAR 
HG671 FELD 28 SB BRA = ASMAA = «GOES BACK TO ASSM. NEST LINE 
pas72 * 

HBETS * 

Ha674 * 

aaE?S * THE FOLLOWING ARE SUBROUTINES USED SY THE NAIN CODE. 
98676 * 

vara * 

O0673 FE1F SD @6 INDADR BSR  SYMPTR GETS CONTENTS OF 

O0679 FEZ1 EE aa LDS =X SYMBOL LOCATION 

G8688 FE23 DF 2 STX ONDVAL = STORES AS OPERAND 

G681 FEZ5 28 9B BRA  SYMBL RETURNS TO FIN LABEL VALUE 
aass2 * 

QGESS FEZ7 48 SYMPTR ASL A MULT LABEL BY 2 TO FORM 

a°s94 FE28 SF CLRB - POINTR INTO SYMBOL TABLE. 

& 85 FE29 97 01 LOADS STA A TMP+1 LOADS POINTER INTO THE 

@a6ss FE2B D? 20 STA @ INP SYMBOL TABLE INTO X. 

BO6S7 FEZD DE 8a LDX TMP RETURNS TO CALLER 

G868S FEZ2F 39 RTS RETURNS 

r) 
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HbéIa 


HaFaS 
aa7es 
aaraF 
aa7as 


EXTEND LDR 
STA 


DIRECT LDA 


* 
RELTI¥Y INN 


& ¥ 
m 
Pd 


Dar MD 


DD 


ONDYAL 
aX 


OND Y'AL +1 
Gy & 


PCYAL 
ASH4 


PCVAL 
ONDVAL +1 
PCVAL +1 


aN 
ASM4 


STORES HI BYTE QF QPERAND 
INTO OBJECT CODE. 

INC PC TO POINT TQ NNT ND. 
STORES LO BYTE OF OPERAND 
INTQ OBJECT CQDE. 

INC & SAVE PLC. TO POINT TO 
NEXT BY'TE. 

GOES TQ WORK ON NEST LINE 


INCRIMENT P.C. PTR TO POINT 
TO NXT BYTE & SAVE P.C. 
LOADS LO BY'TE OF OQPERAND 
FORMS RELATIVE QFFSET. 
INSERTS RELATIVE BYTE INTO 
OBJECT CODE. 

GOES TO ASSMBL NEST LINE. 


» OF THE ASSEMBLER PROGRAM 
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aans1 


ates 


HOIS4 
Agaas 
HAASE 
00087 
HAGE 
Gaas9 
pease 
aeao4 
aaaa2 
paad3 
Haag4 
AB895 
HHGIE 
ana97 
GHAdS 
aaags 
He1 08 
0104 
HaL 2 
88183 
AGL 84 
68105 


BAS 


GOLA6 _ 
G a7 ° 


Ba) Sad 
HaLas 
68118 
G@111 
06112 
40113 
Ga114 
@0115 
60116 
60117 
G@G118 
88119 
88128 
80121 
baL22 
60123 
98124 
HOL25 
BO0126 
80127 
06125 
88129 
88138 
GA131 


- «934 
f Se 


RS 
HA134 
8@135 
HOLS6 
a 


FDS- 


YSA 
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DEBUGGER 


THE DEBUGGER FOR THE PDS SwSTEM WAS DESIGNED TO 
PROVIDE A VERSATILE TOOL FOR USE IN PROGRAM TESTING AND 
DEBUGGING. IT ALLQNS FOR BREAKPOINTS. MINI-ASSEMBLER 
SYMBOL TABLE REFERENCING. STACK MANIPULATION AND 
INPUT IN EITHER HENADECIMAL, OCTAL OR DECIMAL 
THE DEBUGGER PRINTS A PROMT CHARACTER “>" ON EVERY NEW 
LINE. AN INSTRUCTION CAN BE TYPED IN WHENEVER THE CURRSOR 
IS BLINKING, EXCEPT WHEN A NLINBER IS BEING TYPED IN. + 
THE DEBUGGER CALLS THE EDITOR WHENEVER A NLIMBER IS TO SE 
INPUT, SOQ CORRECTIONS CAN BE NADE IF THE WRONG DIGIT IS 
TYPED IN. THE POINTER "PCYAL" POINTS TO THE CURRENTLY 
OPENED BYTE LOCATION. THE DEBUGGER OPERATES ON WHATEVER 
BYTE IS POINTED TO BY PCYAL. FOR FURTHER DETAILS SEE THE 
SECTION ON THE CEBUGGER IN THE OPERATORS REFERENCE MANLIAL. 


THE DEBUGGER IS IMPLEMENTED BY A SMALL ROUTINE TO SET 
UP ENTRY (DEBUG) AND A LARGE ROUTINE WHICH DOES A RANGE 
COMPARE TQ FIND THE PROPER COMMAND AND THEN ENECUTES THE 
COMMAND CRUNBUGS, NOTE THAT SINCE COMMANDS ARE 
INTERPRETED BY RANGE. ANY KEY STRUCK MILL PRODUCE 
A COMMAND EXECUTION, SUCH AS A". " BEING INTERPRETED 
AS A+" COMMAND 


COMMANDS: 


“GC. &. " LINE = PRINTS ">* OUT ON A NEW LINE. 

" " CHANGE - THE SPACE COMND CHANGES CONTENTS FROM Y TO 2. 
"+" OPNNST - OPENS NEST LOCATION 

"=" OPNPRE - OPENS PREVIOUS LOCATION. 

"B" BRESET - SETS A BREAKPOINT AT THE OPENED LOCATION. 
"C" CLRBRK - CLEARS BRKPOINT. MUST BE DONE BEFORE EnIT. 
‘e" Gaal © PERFORM RTI - ENECUTE AT BRKPOINT LOCATION. 
"G" GOLOCN - STARTS EXECUTION AT GPENED LOCATION. 

"QO" OPNLOC - OPENS LOCATION THAT IS TYPED IN AFTER “O" 
"R" OPNREG - OPENS THE TOP-OF-STACK LOCATION. 

"S" SETSTK - SETS. THE STACK TOQ-THE OPENED LOCATION. 

"T" OPNTBL - OPENS LOCATION IN SYMBOL TABLE OF NEST CHR. 


ns 
1 SUR ROOTING 


SUBROUTINES: 


INPCHR - INPUTS A CHAR. INTO A AND PRINTS IT. 

INPNLUIM - INPUTS A NUMBER INTO B-A FROM THE KEYBOARD. 

PNTBYT ~- PRINTS ACC A AS 2 HES DIGITS ON THE SCREEN 

PNTDIG - PRINTS B-A AS 4 HEN DIGITS ON THE SCREEN 

NEWLIN - PRINTS ACR. AND A ">" ON THE SCREEN 

DSPROR - PRINTS BYTE ADDRESS (NNNN) AND BYTE CONTENTS CY4'D 
AS DXXXN YY ON THE SCREEN 


PAGE 
HO1S8 
HHLS9 
a a 
berg 
pAL4=S 
HB14S 
HaL44 
66145 
HOL4E 
0147 
Ha1dsS 
He149 
H81 58 
Hb154 
ABLS2 
G8153 
Ho41 54 


881535 * 


HaLSE 
86157 
HALSS 
Ha159 
HaLee 
ba161 
HaLe2 
O81L63 
Ho164 
G “So 
Sev6 
06167 
HO168 
88169 
898170 
98171 
Hoa. r2 
68173 
81 74 
06175 
O81LPE 
88177 
88178 
88179 
Ha1ea 
Ab1st 
HeaLes2 
AGL8S 
Ha1s4 
681835 
@8156 
8618 
8a1ss 
@8189 
e498 
b 41 
08192 
@8193 


Q 


804 PDS-V3A 
FE4A . 
* 
FE4A BD FCBE BGPOP4 
FE4D 241 POPLIN 
FEE 34 
* 
_- EH * 
‘FEAF 8D 74 DEBUG 
FESL 8D 89 PBUGL 
FESS BD FC96 
FES6 DE 4a 
FESS 8D 99 
FESA 2a FS 
*K 
FESC BD FC45 INPCHR 
FE5F BD FCAD 
(FEG2 39 
ec" * 
a ES 
* 
* 
FE63 81 28 R8UNBUG 
FESS 2D EF 
FE6? 2E 89 
FEG9 BD FEF4 CHANGE 
FE6C DE 4a 
FEGE AF ae 
FE78 20 DB 
* 
* 
FEF2 81 2D  OPNPRE 
EES 2D 5 
“PEF6 2E 06 
FE7S 09 
FES 20 2B 
* 
* 
FE7B ag OPNNXT 
FEFC 20 29 
*K 
3 xk 
FETE 81 42  CLRBRK 
FES@ 2D aA 
FES2 2E 78 
FES4 DE 2a 
FE86 96 2E 
FESS AP aa 
FESA 20 18 
cel as 
ESC A6 AO BRKSET 
FESE 97 2E 
FEQQ DF 2a 
FE92 86 3F 
FES4 AP Aa 
20 BS 


-FE96 : 


5 a | 


DDB 


GBD DD 


NEWLIN 
INPCHR 
RTARRO 
PCVAL 
RUNBUG 
DBUGL 


GETCHR 
FUTCHR 


#f* 

BGPOFL 
OPNPRE 
INPNUM 


‘PCVAL 


BX 
POPLIN 


#$ F is 
OPNNNT 
CLRBRK 


DSPROR 


DSPADR 


#$7C 
BRKSET 


" BAIT 


BRKAGR 
BRKSAY 
by, & 

DSPRDR 


GX 
BRKSAY 
BRKADR 
#SSF 
a. 
POPLIN 


MOVES CURSOR UP QNE LINE. 
CLEANS UP STACK FOR 
DISPLAY OF C.R, - >. 


PRINTS "C€, R. >". 

READS IN COMMAND. 

INSERT BLANK. 

LOADS CURRENTLY OPENED Lac. 
EXECUTES DEBUG COMMAND. 
GOES BACK FOR NEST COPMND. 


READ IN CHAR INTO A 
DISPLAYS CHARACTER. 
RETURNS TO CALLER. 


TESTS FOR SPACE. 

SKIPS IF A *E. BR. CLINE. 
SKIPS FOR OTHER CHND TESTS. 
INPUTS NEN BYTE CONTENTS. 
LOADS OPENED BYTE LOCATION. 
STORES NEW BYTE DATA. 

GOES TO INPUT NEST COMMAND. 


TESTS FOR A "~-" COMMAND 
SKIPS IF A "+" COMMAND 
SKIPS TO TEST FOR OTHER CMND 
FORMS PREY. LOCATION ADDR. 
GOES TO OPEN THE LOCATION. 


FORMS NEXT LOCATION ADDR. 
GOES TQ OPEN LOCATN BYTE. 


TESTS FOR A "C" CONMAND. 
SKIPS IF A "“B" COMMAND. 
SKIPS FOR NEXT COMND TEST. 
GETS ADDRESS OF. BREAKPOINT. 
LORDS ORIG BYTE CONTENTS. 
RESTORES BYTE DATA 

GOES TO OPEN THE LOCATION. 


LOADS DATA OF OPNED LOCATN 
SAVES DATA OF OPNED BYTE. 
SAVES ADDR. OF BREAKPOINT. 
LOADS SOFTWARE INTUP COMND. 
SETS AN SHI AT OPNED BYTE 
GOES TQ NEXT LINE FOR CONND 


PAGE 


G@195 


G@199 


. 8208 


oe201 
Ha2aS 
Hb2AS 
HALa4 
8a205 
OO266 
Ha2a7 
HALAS 
HALO 
Ha21A 
ba214 
ag212 
A213 
HelL 4 
00215 
HO216 
aa217? 
HALLE 
Ha219 
HAS2H 
A724 


HALL 4 
8225 
HH226 
bb227 
p22 

8B229 
HA2S0 
HA2Z31 
HH2s2 
AB2S33 
HaL234 
AB235 
HULSE 
A823? 
HALTS 
Hb239 
G8240 
80244 
Nea242 
88243 
0244 
69245 
GP dE 
bKLA? 
aoe43 


bas 


FESS 


FESS 
FESR 


FESB 2 


FESD 


FESF 3 
FEAL 2 


FERS 


FEA4 ; 


PDS-¥SA 


ADSE 
so 


1A 


“* FOLLOWING PRINTS QUT 
* 


6618 
4 


BASS 


OPNREG TSS 
INS 
INS 
BRA 
aK 
o* 
SETSTK CMP A 
BLT 
BGT 
TXS 
BRA 
* 
* 
* 
* 
* 
* 
* 
* 
* 
DSPADR STS 
DSPAD1 BSR 
BSR 
JSR 
LOX 
LDA A 
BSR 
RTS 
*K 
* 
OPNTBL BSR 
ASL A 
CLR B 
BRA 
* 
* 
PNTDIG LDA A 
BSR 
LDA 
BSR 
RTS 
* 
* 
NEWLIN LOS 
- STN 
BRA 
ok 
* 


PNTBYT LDN 
STS 
CLR B 
LDX 


DSPADR 


#F7S 
OPNREG 
OPNTBL 


DEBUG 


PCVAL 
NEWLIN 
PNTOIG 
RTARRO 
PCYAL 
es 
PNTBYT 


INPCHR 
OPNLCI 


PCYVAL 
PNTBYT 
PCVAL+1 
PNTBY'T 


#FODIE 
IOBUFF 
PNTBUF 


#16 
ARB 


# IOBUFF 


OPENS TOP-OF<-STACK.. 

PCVAL GETS STACK POINTER. 
(CLEANS UP THE STACK). 
GOES TO DISPLAYS THE T-O-S. 


TESTS FOR AN "S" COMMAND 
SKIPS IF AN "R" COMMAND 

SKIPS FOR THE "T" COMMAND 
STACK POINTER GETS PCYAL. 
RETURNS TQ INPUT COMMANE. 


FOLLONING ARE SUBROUTINES USED BY DEBUGGER. 


FOLLOWING DISPLAYS THE LOCATION ADR. & CONTENTS. 


SAYES OPENED LOCATION ADDR. 
PRINTS A O"C. RK.“ AND %>". 
PRINTS OUT "PCYAL" IN HEN. 
PRINTS A SPACE. 

LOADS PTR. TQ OPEND LOC. 
LOADS DATA FROM LOCATN. 
PRINTS DATA IN HEN FORMAT. 
RETURNS TO INPUT COMMAND 


LOADS A NITH SYMBOL CLABL). 
ALIGNS -ADDRESS FOR 
SYMBOL TABLE ENTR'*'. 
SAYES AND DISPLAYS ABDRESS. 


PRINTS THE TWQ HI HEN DIGITS 
OF OPENED ADDRESS 

PRINTS QUT 2 LOW HEX BIGITS 
OF THE OPENED RDPRESS. 
RETURNS TO CALLING CQDE 


LOADS *“C. Rk." & *>* 
STORES FOR PRINTING. 
SKIPS TQ PRINT CHAR. 


2 HEN OIGITS. 


LOADS 16 FOR BASE. 

STORES FOR CONVERSION. 
CLERRS HI 2 DIGITS. 

LOADS OUTPUT BUFF ADDRESS. 


PAGE 

Heese 
fF *aZ 
Preeti 2 
aa2ess 
HeLa 4 
08255 
Hb256 
oe257 


oe86 


FEDS 


FED? 


FEDRA & 


FEDC 
FEDE 
FEES 


HO25aCFEES 


HA259 
HH260 
GH261 
HH2L62 
GH263 
HaZ64 
GH265 
Hae66 
6267 
HALES 
HG269 
SS sa 
HH2 71 
rs Popa 
Abe rs 
Aes r4 
ba27 

FeO re 
al 
baer 

aa279 
HaSoe 
HbLSSL 
Ha2s8s 

GHLSES 
Ha2sd 
8235 
HeLs6 
Haesr 
HHSSS 
AHL89 
HaLIO 
Ha2o7 
He292 
HALIS 
HoLI4 
Hb295 
HALIE 
HaLoF 
HALIS 
GALI9 
HaSHH 
BASH 


4k 32 
auSaS, 


-FEE4 
“FEES 


FEES 
FEEB 
FEEE 
FEFA 


FEF S ‘S 


FEF 4 
FEFF 
FEFS 
FEFB 


2 FEFC 


FEF 


FFAS 
FFA4 
FFAS 
FFG? 
FFES 
FFOB 
FFGL 
FFOF 
FF11 


FF12 


FF1d : 


FFi6 
FF1a 
FFiA 
FFIC 


FFE 


FFIF 3 
FF28 ¢ 


BASO4 \¢o> 


Hasas 
gasae 
Q 


Fra 3 
FFO2 3 


PDS-V3A 


= 


* FOLLOWING CONVERTS BSY'TE TQ HEN WITH LERDING ZEROS. 
* 


DSIDTE BD DB 


IQBUFF+1 SETS BYTE FOR SECOND DIGIT. 
BINASC CONVERTS TQ ASCII DIGITS. 
IOQBUFF+1 TESTS BOTH DIGITS CONYVTD. 
PNTBUF SKIPS IF BOTH DIGITS NOT &. 
IQBUFF MOVES LOW DIGIT. 

IQBUFF +1 

#*°O HIGH CIGIT GETS A "A" 
IOBUFFF 


#IOBUFF LOADS ADDR OF HEN DIGITS. 
QUTBUF STORES AS QUTPUT BUFFER. 
#IQBUFF+L STORES ADDR. OF 
QUTEND END OF DIGITS PRINTED. 
QUTSTR PRINTS QUT BS'TES. 

RETURNS TO CALLING PROGRAM 


: © FOLLONING INPUTS RA 16 BIT NUMBER INTO THE 6A REG. 


36 CONVRT STA: 
Fé JSR 
36 LDA 
a8 BNE 
25 LDA 
36 STA 
38 LOA 
35 STA 

* 
835 PNTBUF LDX 
a4 STN 
GG36 LOX 
aA STX 
FDSD ISR 
RTS 

* 

va 

* 
FCSE TNPNUN ISR 


EDITIN INPUTS A STRING OF CIGITS. 


a LEN SCNPTR LOADS ADDRs OF FIRST BIGIT. 
ar BSR ASCBIN CONVERTS TQ BINARY IN BA. 
RTS RETURNS Ta) CALLER. 
*k : 
* 


BE 


18 
INS 
INS 
TSS 
a5 LDA 
a6 LDA 
Gd SUB 
aa SBC 
as STA 
G6 STA 
RTI 
* 
Ba 
4F  OPNLOC CMP 
SF BGT 
pe BSR 
48  OPNLCL STA 
44 STA 
SA BRA 
Ss 
* 
GOLOCN INS 
INS 
aa JMP 
Sa 
# END 
Pd 


DoD DD 


4° EXIT CMP RAR #¥°G TESTS IF AN EXIT CED CONMD. 


GOLOCN:._ SKIPS TO THE "GO" COMMAND, 


Hee asnsign Seow 


SE —DENLEC RIFE POR NEST COMNB TEST “YTH ROM 


CLEARS .UP THE STACK. 
INDEN GETS STACK POINTER. 


ray LOADS RETURN ADDRESS. 
6.8 

#1 SUB 1 FROM RETURN ADDR 
#8 

a 8 RESTORES ADDR. TO BRKPT 
6.8 LOCATION. 


RETURNS FROM BREAKPOINT. 


#°O TESTS FOR AN “O" COMMAND. 
SETSTK SKIPS IF AN "“R", ““S" ETL. 
INPNUM LOADS A 16 BIT NUMBER 
PCYAL STORES NEW OPENED 
PCVAL+1 LOCATION ADDRESS. 

DSPAD1 DISPLAYS CONTENTS OF LOC. 


CLEANS UP THE STACK, 
a8 JUMPS TQ USERS PROGRAM. 


QF DEBUGGER 


ne one orm 


PAGE G8? PDS-¥SA 


IALSAG * ' * - 
he : UTILITY PROGRAMS 
Kose * 
HSL d a 
BASLE * / 
G8313 sc / 
es . ASCII TO BINARY CONVERSION 
ga315 * THE ASCII T 
ciclo soged SCII TO BINARY ROUTINE CONVERTS FROP sp 
nat S aus ASCIT CONVERTS FROM AN ASC 
pasl? * NUMBER STRING POINTED TO 6¥ STO AN UNSIGNED 16 eit 
oe co NUE IN BA CACC B HAS THE HI BYTE. ACC A HAS 
ante eit aie THE ASCII STRING IS TERMINATED BY A NGN 
eae S HEXADECIMAL CHARACTER UPON EXITING: THE INDEX REGISTER 
eet te i TO THE NEXT CHARACTER AFTER THE NUNBER 
ote ie HE BASE OF THE NUMBER STRING IS PASSED TO 
Aa223 #4. nares ta a ck Is THE ARITHMETIC REGESTER A 
pasted | LOCATED IN S 86 AND OF OF LOW MEMORY). IF THE 
aaT2S poke pala ie A KNOWN BASE. PUT THE BASE 
Wese . 2 AND 16) IN ARA AND F 
oe * THE ENTRY POINT ENTRE. eee. a aeeenee cee 
HoseE * 
Hs29 x 
ee ee eONVERSION FORMULA: 
Bosse * ASCII NUMBBER STRING XC4J.XE31,XC21. 804] IN 
te if cea NUMBER = 
. , 4I¥VTS+NCSI*ST2ENC A IAY PLAN LL THY 
oe * BINARY NUMBER er ee o 

ied C4 CRY ENTS I *V4NES JI FYE C2 DT 4G! 
aie 2])*Y+N804] 
pce “HERE t IS THE EXPONENT OPERATOR. 
one : * © IS A CHARACTER & ' IS THE BASE. 
GaS46 * 
Bbs44 x . 
neciee: RR Hh 
bOsds ‘ASCBIN: — FORM THE BASE IN ARA BAS TE 
ena c _BASE SED ON THE FIRST CHAR 
eee * OF THE NUMBER STRING: INCREMENT CHAR. PTR. IN 
pasdS seis ge CIN BAD GETS 
A eas *NSTCHR: E CURRENT CHAR. POINT ix Is 
Baz4? a bet r they corr ore . POINTED TO BY XS IS NOT A 
ihe NIT ELSE INCREMT CHARACT 7 
ae | BIGT } c CTER PTR Bs 
hie * CONVERT DIGIT TO BINARY: Pay ee 
peed * NUMBER GETS NUMBER * BASE: 
ie * NUMBER GETS NUMBER + CIGIT: 
pis * GO TO OPERATE ON THE NEST DIGIT CNSTCHR): 


C 
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goss4 FF22 
GAZSS FFSd 
I Use FF2E 
aUgor FFes 
Qag5e FFEA 
BAI59 FF2C 
BAZ6G FFZE 
GaI61 FFSO 


GG362 FFI1 = 


GG262 
HaSé4 FFRS 
aazes 


GESOG —r¢e 3" 


GS6 7 FES? 
HOSES FRIES 
GUS69 FFSS 
HASTA FFSB 
GUs71 FFSD 


Baz? FFAG 
WASF4 FFAS 
BaS?5 FFAd 


GZ76 FFAG 2 


Gar? FFAS 


BaSFS FFAA S 


GGLPS FRAC 
GSE 


rm, 


FFSG 
FFSS 


a ee 
X. 
oy 


“FFSd 
FFSS 
HESS FFSF 
B28 FFSS 
Ha388 FFSB 
Ga289 FFSD 
GGS9G FFSE 
GG391 FRSA 
OG292 FFES 
GAZ93 (FFES 


‘ rr (03 


* PPde 8 


AG 
81 
2p 


9B 


Lytyhs Doyo! 


‘oh Mm 8G 


He 
2E 
86 
ag 
8A 
As 
as 


O02 
18 


7 iy. 


NS TCHR 


RENIT 


rm poDo SBD DTD DVD BDWHDD 


BD 


oaDOD DB 


aD 


SPs 
HF”. 
OCT 
HEN 
#10 
ASCL 
#8 


ASC2 
#16 
ARG 


NLUNBER 
ARL 
ON 
#¥°O 
AENTIT 
#770 
#10 
ASCS 
#165 
RENIT 
#7 
#16 
RAENIT 
DIGIT 


TMP 
MULT 
O1GIT 
#4 


TMP 
NSTCHR 


GETS CHR TO FORM BASE, 
TESTS FOR DECHL STRNG 
SKIPS IF BASE & ¢*3, 

SKIPS IF BASE 16. 

LOADS BASE 18 FOR CONVERSN. 
SKIPS TO INC.) TENT FOINTR 
LOADS BASE 8 FOR CONVERSION. 
INCREMENT PTR TO NEST CHAR 
SKIPS TQ SAVE BASE 

LORS BASE 16 FOR CONYERN 
SAVES BASE IN BASE#. 


GETS G. 


CLOW NUMBER ON STACK). 
CLEARS HI OF BASE. 

GETS CHAR TO CONVERT. 

INC TO NEXT CHARACTER. 
TESTS FOR END-OF-STRING. 
EXITS IF END. 

FORMS B.C. 0. NUMBER. 
TESTS IF BECIMAL DIGIT. 
SKIPS IF DECIMAL. 

TESTS FOR END OF STRING 
ENITS IF NOT A HEN DIGIT. 
FORMS. A HES .6.C. 0. BIGIT. 
TESTS FOR END-OF-STRING 
EXITS IF CHAR 2 "F". 


SAVES BIGIT FOR ADD 


SAYES INDEX REG FOR MULT. 
RESTORES LO OF "NUMBER" 
NUMBER GETS NUMBER * BASE. 
NUMBER GETS NUMBER + DIGIT. 


SAVES LO OF NUMBER. 
RESTORES STRING POINTER 
GOES TO CONYRT NEST CHAR. 
RESTORES "NUMBER" IN EBA. 
RETURNS TQ CALLING PROGRAM 


& 
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gaz95 ** BINARY TO ASCII 
HEZIE 
68397 * 
p 79g * THE BINARY TO ASCII CONVERSION ROUTINE CONVERTS 
Ce 3 * A 16 BIT BINARY NUMBER IN THE BA REGISTR (REG B & REG AD 
Hadaa * TO A STRING OF ASCII DIGITS. THE ASCII STRING CAN BE IN 
aoded * ANY BBASE FROM BASE 2 THROUGH BASE 41. THE VALUE OF THE 
Ha4G2 * BASE IS LOCATED IN THE ARITHMETIC PSEUDO-REGISTER ARB 
Hadaz- * CARB IS LOOCATED IN BYTE ARS (LOC 47 AND ARZ (LOC SJ). 
Hadid * WHEN THE ROUTINE IS ENTERED, THE POINTER TO THE OUTPUT 
Ba4O5 * LOCATION IS PASSED IN THE INDEN REG.  MHEN THE ROUTINE 
Had GE * ENITS, THE INDEN POINTS TO THE LAST DIGIT IN THE STRING 
aadar * PLUS ONE, 
He4ER * CONVERSION IS DONE BY THE METHOD OF REPEATED 
aadas * DIVISION. THE LOW ORDER DIGIT IS FORMED FIRST. THE 
HO4d1 8 * DIGITS ARE THEN PLACED ON THE STACK UNTIL CONVERSION IS 
Hedi 1 * COMPLETED. THE DIGITS ARE THEN POPPED OFF THE STACK 
Ha4dL2 * AND PLACED IN THE QUTRUT STRING. THE TOP-OF-STACK IS 
HOd13 * INITIALIZED TO ALL ONES TO TELL WHEN ALL THE DIGITS 
Badd 4 * HAVE BEEN POPPED OFF THE STACK. AFTER THE DIVISION, THE 
Ha445 * DIGIT (THE REMAINDER OF THE DIVISION OPERATIOND 
go4d16 * IS LOCATED IN THE AR & PART OF ARA (BYTE 7). WHEN 
badd? * THE QUOTIENT OF THE DIVISION IS & THEN THE CONVERSION 
Hoa418 * IS COMPLEATED 
H8419 * 
Hodse 
GAd21 << * 7 
OGd22°FFS4 DF OO BINASC STN THP SAVES OUTPUT POINTER 
@°123 FFSS 34 DES “SETS THE TOP-OF-STACK TO 
bneyit FFEF 30 TSX “ALL ONES TO TELL END OF 
aQ425 FFES 6F 88 CLR x ?CHAR STRING (LAST CHAR IS 
GG426 FFA 63 86 COM = &X | PUT ON STACK FIRST). 
Gad2?7 FEC DE G4 BIN LON ARB RESTORES DEYISOR (BASED. 

80428 FFEE DF 86 ST¥ ARR 
Ba429 FFFG SD 3D BSR PIVIDE —* QUOTIENT IN BA GETS THE | 
SEE Ret * REMAINDER OF # TO BE CONVERTED; REMAINDER IN ARA GETS 
Gadd —* THE LOW ORDER DIGIT. 
BAd32 FFF2 97 OS STA A TMP4 SAVES A OF BA. 
GG433 FF74 96 GF LOA A OARS LOAD DIGIT (REMAINDER? 
Gad24 FFRE 36 PSH A - STACK DIGIT CREYERSE ORDER). G 
GG435 FFFF 95 82 LDA A TMP RESTORES A OF BA 
HO436 FFFI 4D TST A “TESTS IF QUOTIENT IS = B 
Ga437 FFFA 26 FO BNE BINA /¢SIGNIFYING THAT 3 
Bods FFFC 5D TST B = ¢THE CONVERRSION 
GAd39 FFD 26 ED BNE "BINA “1S DONED. 
H8448 * 
@G441 FFFF DE 6G BINSTR LDX TMP RESTORES OUTPUT POINTER 
GGd42 FFS1 32 BINS PUL RA - UNSTACK A DIGIT. 
AG443 FF82 4D “TST A - TESTS IF NEG (END?). 
HO444 FFSZ 2A O41 RPL BIN SKIPS IF A DIGIT. 
GG445 FFS5 39 RTS EXITS FROM SUBROUTINE 
O446 FFS6 81 99 BINA CMP A #9 TESTS IF RESULT I5 HEX 
Ga447 FF8S 2F a2 BLE BINS SKIPS IF DIGIT NOT HEX 
8448 FFSA 8B OF ADD A OH? FORMS HEX VALUE OF DIGIT. 
\ 49 FF8C 88 30 BINS ADD A ##°8 FORMS DECINAL CHARACTER 
ada50 FFSE AP oO STA A OX OUTPUTS CHARACTER. 
88451 FF9A OS INS POINTS TO NEXT CHARACTER. 


HOSS -FFSL 20 EE BRA BINS GOES BACK FOR NENT DIGIT. 
cv 


J 


PAGE 


Aaqa4 
0a45S 
ar “Se 
ie, rata 
Badd 
HH459 
Hoadea 
AB4EL 
Haqde2 
HOFES 
0464 
Haqes 
Hadé66 
ade? 
HO4es 
HH4E9 
Ha4-e 
rors IS Faw & 
aad r2 
He PS 
Had 74 
Had? S 
Hades 
Hager 
Had ?s 
STS 0S aie 
He4seg 
ARASTL 


Ki u32 
aagdas 
Aadsd 
Hadss 
HAqsG 
Hods- 
GA48s 
Ho4ss 


81a 


He498 - 


HO4FS1 


9a492 
anda 
G0494 
HO495 
B0496 
Bada? 
HO499 
aa499 
eased 
BOSAL 
aasa2 
ga5as 
ea5ad 
gasas 
aasae 


i , 9 
feet IS) 
Nasag 
Ha510 


HOS14 ¢ 


a ct Or 


CEA 
FF9? 
FFO4 
FF9S 
FEO? 


FFSS - 


FFSS 


FFSA 3 
FFSB - 


FFSC 


FFSD ¢ 
FFF & 
FFAL : 
FFAS § 


FFAS 


FFA ¢ 
7 FFAS 2 
FFAB 3 
FFAC 3 


FFAD 
FFAE 


18 


PDS-¥SA 


NULTIPLY ROUTINE 


THE MULTIPLY ROUTINE MULTIPLIES THO 16 BIT BINARY' 
NLINBERS TOGETHER TQ PRODUCE A 16 BIT RESULT. THE BA 
REGISTERS AND ARA CBYTES & & 7» REGISTER ARE USED 
THE CONTENTS OF ARA ARE UNCHANGED os PROGRAM ENIT, 


| 


BA GETS BA * ARA 


MULTIPLYING IS ACCOMPLISHED Bs REPERTED ADBITIONS 
OF ONE OF THE OPERATORS COPERATOR ARAD INTO THE RESULT. 
THE RESULT STARTS QUT WITH A ZERO WALUE AND IS SHIFTED 
OVER ONE RFTER EACH ADDITION. THE HIGHEST ORDER VALUE 
IS ABCEC IN FIRST AND TTHEN, GOING TQ THE RIGHT. 
CTHUS SHIFTING THE ANSWER LEFT ONE TO BRING IN THE NENT 
RIGHTMOST OIGIT® GETTING THE NENT LONERMOST SIGNIFICANT 
DIGIT. THE NEST RIGHTMOST BIT OF THE OTHER OPERAND 
€THE ONE ORIGINALLY IN BRS IS TESTED, AND IF ONE: 
ANOTHER ACDITION TAKES PLACE. THIS IS REPEATED UNTIL 
THE FINAL SUM IS FORME. 


MULTIPLY ALGORITHM: 


*MULT: STACK BA; BA GETS 8; SET COUNT WALUE TO 16; 
MULLS: SHIFT 6H LEFT 2; 

* SHIFT LEFT ORIG &A VALUE ON STACK INTOQ CARRY: 

* IF CARRRY = & THEN GO TO MNUL2 

* BRA GETS BA + ARA: 

*MULS: DECREMENT COUNT; 


* IF COUNT # & THEN GO TO MULAI ELSE ENIT. 
* 
* 
Fre 
* 
NUL T PSH A = PUTS THE ORIGINAL CONTENTS 
PsH & = OF BR ONTO THE STACK. 
LDA A #16 LOADS COUNT YALUE 
ae, Ss ONTQ THE STACK. 
CLE A = BA GETS ZEROED. 
CLR B 
TSN SET INDEX TQ STACK. 
MULL ASL A = SHIFT LEFT &R. 
ROL B 
ASL 2,% SHIFTS ORIG. BA OPERAND 
ROL 1.N ONE LEFT INTO CARRY. 
Bcc NUL2 SKIPS ADDING IF CARRY = @. 
ADD A ARG BA GETS BA + ARA. 
ADC B ARI 
NUL2 DEC BN TESTS IF DONE. 
BNE MULA GOES BACK IF NQT DUNE. 
INS CLEANS UP THE STACK 
INS 
INS 
RTS EXITS ROUTINE. 


FAGE 


HG513 
049514 
é [si 
ILE 
8547 
HOSL8 
Gas19 
HasSSe 
oased 
eb5L2 
HAS2S 
Hase4 
Ga525 
HaS52E 
Aa52 7 
S]S ha peaer 
HA529 
basse 
Bast 
HOSS 
HOSSS 
HaSS4 
GGS35 
HHSSE 
Aaas 
HASSE 
GAGS9 
{| “4a 
bef 1 
Has42 
HO54S 
Ho544 


811 


G@G545 . 


BOS4E 


ARSHS iar 


OO550 
G@@551 
88552 
GGI538 


Based 
BA565 
r 366 
bn? 
BA568 
ga569 


Hasra 


FFBO 
FFBL 
FFE 


FFBS 


FEBS 


FFES 


FFB 
FFEB 
FFBD 
FFEF 
FFCa 
FFC2 


FFC4 ; 


FFCE 
FFCS 
FFCR 
FFCC 
FFCE 
FFDA 


FFO2 € 


POS-V3A 


GCL DG GG) 


Ty £04 - Ty Ty 


G1 
Od 
66 


a2 
Ot 
a4 
11 
FS 
aa 
83 
a4 
a3 
a4 


DIVIDE ROUTINE 


THE DIVIDE SUBROUTINE DIVIDES THE 16 BIT NUMBER 
IN THE BA REGESTERS BY THE 16 BIT NUMBER IN THE PSEUDO 
REGESTER ARA (LOCATED IN BYTES & & 79, UPON EXITING: 
BA WILL CONTAIN THE QUOTIENT OF THE DIVISION AND ARA 
WILL CONTAIN THE REMAINDER. THE CIVIDEND BA IS DIVIDED 
By THE PIVISOR ARA CI. €.  B8A-"ARA ?. 


DIVIDE ALGORITHM: 


*DIVIDE: N3.4 GETS BA (BA IS PUT ON THE STACK): 
N1e2 GETS THE 16 BIT ARA VALUE CARA PUT ON THE STACK): 
COUNT GETS 1 + THE NUMBER OF NONSIGNIFICANT BITS IN 
THE DIVISOR CLEFT JUSTIFY 1.2 TQ FIRST 1 BIT, COUNT 
GETS 1 + THE # OF LEADING ZEROS IN Xi. 2] [COUNT WILL BE 
FROM 1 TQ 4°]; 
BA GETS 3.4 CRESTORES 8A]; 
“WS.4 GETS & CINITIALIZES THE QUOTIENTI; 
‘DIVE: BA GETS BA - S42; 
* IF THERE WAS A BORROW CI. E. OGIVIDEND IN BR < DIVISOR 
* IN Nd.2 CARAS J THEN BA GETS BA + Xi.2 CORIGINAL BA 
* VALUE RESTORED] & CARRS CLEARED ELSE CARRS [S SET; 
*DIVYS: SS. 4 CQUOTIENT] GETS CARRS LEFT SHIFTEO IN; 


KFREFREEKFFSAKRESEFKRFEFEREEKRE 


* 
> 


* N1.2 (COIVISOR] GETS SHIFTEG RIGHT ONE PLACE WITH ZERO 
* FILLED IN FROM THE LEFT SIDE; 
# DECRENENT COLINT; 
: ENSIT IF DONE ELSE GO TO BI¥s3,; 
x 
* 
* : 7 
DIVIDE PSH RAR - LOADS DIVIDEND INTO Ns. 4. 
PSH & 
LDR A ARI LOADS DI¥YISOR FROM ARA. 
LDA B..ARB 
PSHE = PUTS DIVISOQR INTO xXi.2 
hed ‘s SET UP SPACE FOR COUNT. 
TSN INDEX GETS STACK POINTER. 
LDR A #1 INITIALIZE COUNT. 
TST - te TESTS FOR HI CIVISR BIT ON. 
BNI DIV2 SKIPS IF ON. 
DIV1 itt A = . COUNTS LEAPING ZEROS 
ASL 2X LEFT JUSTIFIES Xis2 
ROL 1.N 
BNI DIV2 SKIPS IF NO LEADING ZERO 
CNP A #17 TESTS FOR ALL ZERO DIVISOR. 
BNE DIV GOES BACK IF B8ITS LEFT. 
DIV2 STR A. BSN SETS COUNTER. . 
LOR B SN BRA GETS ORIGINAL 
LDA A 4.x DIVIDEND VALUE 
CLR Su N CLEARS NS.4 FOR FORMATION 


CLR dN QF THE QUOTIENT. 


ae 
? 
PAGE 812 


Ha572 FFD4 
POSP2 FFD 


rw? FEDS 2¢ 


BO575 FDA 
Gasre FFDC 
bast? FFDE 


GO579 FFDF ; 


Gasra FFEL 
passa FFE2 
gass1 FFEF 


HGS82 FFE ¢& 
HGSSS FFES & 
GG584 FFEA « 
HOSES FFEC = 


G@GS86 FFEE 


BASS? FFFA S 
— «GA588 FFF2 


BASSI FFFS 
@o598 FFF 
HH591 FFFS 
G@G@592 FFFS 
HHSIS FFF FP 
BASI4 cer’ 
HHSIS 
HOSI6 
BOSS" FFFS 
P°S9S FFFR 
Nes FFFC 
aneaa FFFE 
HGEGL ; 
HEAL 
HOES 
Heéaad 
HA6OS 
HA6Ae 
Hbear 


B14 
FEAF 
H108 
FRB 


TOTAL ERRORS Geaae 


OIY4 


DIV 


2 


END 


SUB 
SBC 
BCC 
ADD 
ADC 
CLE 
BRA 
SEC 
ROL 
ROL 
LSR 
ROR 
DEC 
BNE 
STA 
STR 
INS 
INS 
INS 
PUL 
PUL 
RTS 


FDB 
FDB 
FOB 
FDB 


MD 


BB 


STORES 


#0104 
$FEAF 
0189 
$FCOO 


START OF DIVIDE LOOP 


SKIP IF DIVIDEND < DIVISAR. 


RESTORES GCIVIGEND IN BR 


CLEARS THE CARRY’. 

SKIPS WITH CARRY CLEAR. 
SETS CARRS TQ 1. 

SHIFT CARRY INTO 
QUOTIENT Nos. 4 

SHIFTS DEYISOR X1,2 
RIGHT ONE. 

DECREMNENTS COUNTER 

GOES BACK IF NOT DONE. 
STORES REMAINGER IN ARA. 


CLEANS UP THE STACK. 


QUOTIENT IN BR 
EXITS ROUTINE. 


INTERRUPT REQUEST VECTOR. 
SOFTWARE INT. YECTOR ADDR 
NIN-NASKABLE-INT. VECT. 
RESTART YECTOR ADDRESS 


OF PDS SOURCE LISTING. 


END 


& 
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paeaL 
ees 
Br tes 
Need 
eaeas 
HGb06 
aga? 
HOES 
Baga 
AabaLa 
HOLL 
Abele 
Hae1LS 
Head 4 
HeaLS 
6ae16 
HeaL? 
HeaLS 
STS TS hike) 
ANH2H 
STIs Pa 
bones 
HaeSS 
Aeaed 
ros ae 
AbBS6 
HHA? - 
BReETS 
Nap? 
Hasse 
HaaSL 
HAAS? 
HOSS 
HRAS4 
GHGS 
HHALS 
Haas? 
HGOL8 
HHASs 
Gand 
HeH41 
GAbdS 
Had S 
Bba4 4 
Heads 
Hbede 
Hood? 
8843 
Hae 9 
Gaese 
BAOSL 
oeaas2 
HHAST 
i ae 
Ayess 
baase 
noes" 
Haass 


Beaa 
HBGS 
6884 
HoaF 
HHS 
Baas 
Baas 
Ha? 
Be8S 
GaoA 
BAGL 
Gage 
aot 
Hoa14 
8016 
HaLA 
Geic 
GHLE 
8420 
Hal2 
bas 
Ha26 
@82A 
HG2C 
HAZE 
BaSE 
B832 
BASS 
8048 
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NAM PDS-VZAR 
OPT 0. NOG 


PROGRAMMED BY ERIC JAMESON 


COPYRIGHT 1976 SPHERE CORPORATION 
P91 SO. S@G Wi BOUNTIFUL, UTAH 84818 


SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION: 
DISTRIBUTION AND USE OF THE PDS SOFTHARE. 

NQ COPIES MAY BE MABE OR DISTRIBUTED WITHOUT THE 
HRITTEN PERMISSION OF SPHERE CORP 


THE PROGRAM DEVELOPMENT SYSTEM CPDS WSAs IS A SET OF 
PROGRAMS RESICING ON ERASABLE PROGRAMMABLE READ ONLY 
MEMORS WHICH ALLOW EWEN THE SMALLEST USER TO USE HIS 
SPHERE SS'STEM AS A COMPLETE COMPUTER SYSTEM FOR THE 
DEVELOPMENT OF COMPUTER PROGRAIS. 

TOWARD THIS END. THE 4 PDS EPROMS CONTAIN A CURSOR 
BASED EDITOR. A MINI-ASSEMBLER, AND THE SPHERE DEBUGGING 
AID «SDA. AS WELL AS A SET OF UTILITY ROUTINES To 0G 16 
BIT MULTIPLY AND DIVIDE, ASCII-TO-BINARY. AND 
BINARY-TO-ASCII ROUTINES. 


MEMORY MAP 


THP Eau #00 
TMPL Eau #02 
ARB EQU $4 16 BIT ACC. PSEUDO REG B. 
ARS Eau $04 _HI BYTE OF ARB. 

AR2 Eau tay _LO BYTE OF ARB 

ARA Eau £06 16 BIY ARITH FSEUDO REG A 
ARI Eau £06 -HI BYTE OF ARR. 

ARB Eau $a7 _LOQ BYTE OF ARA.. 

DIGIT Eau £09 BYTE USED BY ASCBIN FOR TNP 
OUTEND EQU $0A END OF OUTPUT BUFFER TEXT. 
BUFADR Eau fac START OF I.°0 BUFFER ¢PTRD 
BUFEND EGU $BE PTR. TO END OF IO BUFFR. 
OQUTBUF EAL $11 START OF OUTPUT BUFFER. 
SRCACR EQU $14 SOURCE FOR TENT MOVES 
DSTADR Eau £16 DEST. ADDR. FOR TEXT MOYE 
ENDMEM EGU $1A LAST ADDRES OF REAL MEMORY. 
CSRPTR EQL $10 PTR TO CURSER ON SCREEN. 
BUFPTR Eau #1E TEMP PTR USED BY QUTSTR 
BUFFLO EQU $20 PTR TO END OF LOW EDIT TXT. 
BUFFHI Eau 22 PTR TO START OF HI TEXT. 

. SCNPTR EQU $24 PTR. TO BUFFRD TNT START. 
SRCASM EAU £26 PTR TO ASSMBLR SOURCE CODE. 
ONDYAL E@ti 2A HAS ASSMBLR OPERND VALUE 
SYMVAL EQU £20 VALUE PUT IN ASSM. SYMTBL. 
BRKSAYV EL $2E TEMP SAVE FOR BRKPT BATA. 
BRKADR EQU $20 ADDDRESS OF BREAKPOINT. 
EDIT Eau $32 9 IF EDITOR IS NOT RUNNING 
IOBUFF EQU $35 I-O BUFFER FOR DEBUGGER 


PCVAL EQU $40 PROGRAM COUNTER FOR ASSM. 


?AGE 
18064 
GES 


Wes? 
1HG6S 
28059 
I8o78 
IATL 
war. 
A723 
ward 
ars 
IWF E 
IO? 7? 
WAFS 
IAPS 
WASH 
IHHS1 
IAIS 
IGOSZ 
IAS 
WAS 
IABESE 
18837 
HAS 
30039 
IAGI 
7 Note 


TD 
FAOIZ 
IHAI4 
HIS 
IAI 
98097 
WAIIS 
IAH99 
99108 
WALOL 
WAL AS 
ALAS 
9104 
AL A5 
NOL OE 
98107 


G83 


FCea 
Feee 


FC8S 


Fcod 
FCGE 
Feces 
FCHR 
Feap 
Foie 
FCLi2 


FC14 
FCLE 
FC18 
FCILB 
FCIE 
Fe2e 
FC22 
Fees 


FC2? 


FC29 
FC2B8 


FC2D : 


FCF 


PDS-V3A 


KHFEEEKEEESE 


RESTR 


EXEC 


> EXECL 


ENEC2 


EXECS 


ORG 
T LOS 
TSS 
STN 
STS 
LDA 
STA 
LDN 
STN 
STN 


INITIALIZATION 


FFCRR 
#S1LFF 


SRCASM 
BUFADR 
#07 

$F OGL 

#3F FF 

BUFEND 
ENDNEM 


THE INITIALIZATION ROUTINES SET UP THE INITIAL VALUES 
UPON SYSTEM RESET. 


SETS STACK POINTER 

NOVES STK PTR TQ INDEN REG ‘ 
SETS ASSEMBLR QUTPUT PTR 

INIT INPUT BUFFR ADDR. 

INHTL2. KEYBOARD PIA. 


LAST LOCATN OF MEMORY’ 
INIT END-OQF-EDIT BUFFR. 
INIT END-OF-MEM ADDR. 


COMMAND LANGUAGE 


THIS EXECUTIVE ACCEPTS COMMANDS FROM THE KEYBOARD TO 


BSR 
BSR 
JSR 
JSR 
CMP 
BNE 
JSR 
CHP 
BNE 
BSR 
CMP 
BNE 
JMP 


HOME 
CLEAR 
CRLF 
INPCHR 
#FO1 
ENXNEC2 
ASMELR 
#F0S 
ENECS 
EDITOR 
#F04 
EXNECL 
DEBUG 


DETERMINE WHAT UTILITY IS TQ BE RUN. INVALID COMMANDS 
MILL SPACE THE CURSOR DOWN ONE LINE. DO NOT SPACE OFF THE 
BOTTOM OF THE SCREEN. 


CSRPTR IS HOMED 

CLEARS SCREEN 

NEN LINE. 

GETS & DISPLAYS CHR 
TESTS IF ASSEMBLY COMMD. 
SKIPS IF OTHER COMMAND. 
JUMPS TO ASSEMBL PRROGRM. 
TESTS IF CONTRL “E’. 
SKIPS IF NOT EDIT CND. 
JUMPS TO EDIT TEXT. 
TESTS FFOR CONTRL ’D*. 
LOOPS BACK IF NOT DEBUG. 
JUMPS TO DEBUGGER. 
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G19 
W110 
6 
Nar e? 
I@112 
IH114 
14145 
IB116 
104177 
19118 
141419 
IHL 20 
IB121 
IW1LS2 
ILLES 
IWL24 
W125 
I1LLE 
IH127 
IH1LLS 
19129 
IGLS0 
IHL 31 
IBLSE 
IBLSS 
IHLS4 
IGASS 
391 7< 
7 # 
IHL SE 
IHL 
I8140 
IH144 
IH142 
IBL4S 
114 4 
18145 
IBLE 
981477 
IGL4IS 
98149 
38458 
HOLS1 
IWLS2 
AHBLSS 
FAL Sd 
HO155 
ABLES 
4815/7 
HHLSE 
pO159. 
48168 


PDS-VS 
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THE EDITOR 


THE EDITOR ALLOWS INPUT FROM THE KES'BORRD INTO A 
BUFFER MENORS. INPUT IS DISPLAYED ON THE SCREEN. WHEN 
IT IS TYPEG IN. THE SCREEN TENT CAN THEN BE EDITED BY' USE 
OF THE CURSOR, WHEN THE SCREEN IS) FULL OR EDITING IS 
FINISHED, THE DATA IS SCROLLED OFF THE SCREEN INTO THE 
EDIT BUFFER. WHEN TEXT IS SCROLLED OFF THE TOP OF THE 
SCREEN. IT IS STORED FROM THE BLIFFER ADDRESS POINTER 
CBUFADR® TO THE LOM BUFFER POINTER ¢BUFFLO), BUFFLO, 
POINTS TQ THE END OF TENT + ONE CI. E. IT POINTS TQ THE 
FIRST UNUSED BYTE). WHEN IT IS SCROLLED OFF THE BOTTOM 
OF THE SCREEN. IT IS STORED IN THE TOP OF THE EDIT BUFFER 
THE TEXT GOES FRROM THE HIGH BUFFER POINTER CBUFFHI) To 
THE END OF BUFFER POINTER CBUFEND>. BUFFHI FOINTS TO 

THE END OF TENT - ONE ¢I.E. IT POINTS TO THE LAST UNUSED 
BYTE IN THE BUFFER®. WHEN THE TEST IS SCROLLED UP 

OFF THE TOP OF THE SCREEN. TENT IS TAKEN FROM THE HIGH 
RARER OF THE EDIT BUFFER AND DISPLAYED ON THE LAST LINE OF 
THE SCREEN. WHEN TENT IS SCROLLE® DOWN OFF THE BOTTENM. 
TEST, IF ANY ENISTS, IS MOVED FROM THE LOM EDIT BUFFER 
AREA TO THE TOP LINE OF THE SCREEN 


UFAD | _ 
e " BUFFLO~ BUFFHD) sa 


POINTERS USED 


CSRPTR POSITION OF CHARACTERS INSERTED ON THE SCREEN. 
SCNPTR POSITION OF START OF EDITED TEST ON SCREEN. 
BUFADR START OF TENT BUFFER IN NAIN MENORY. 

BUFEND END OF TEXT BUFFER IN MAIN MEMORY’. 

BUFFLO END OF TEXT SCROLLED OFF TOP OF SCREEN. 

BUFFHI START OF TENT SCROLED OFF BOTTOM OF SCREEN. 
BUFLEN NOT CURRENTLS' USED 


EDITOR COMMANDS 


“UP ARROW" MOYES CURSOR UP ONE LINE; CSRPTR GETS 
CSRPTR-s2; CALL NDRFLO. 


“DONN ARROW" MOYES CURSOR DOWN ONE LINE; CSRPTR GETS 
CSRPTR+32; CALL OVRFLO. 


“RIGHT ARROW" MOYES CURSOR ONE FOSITION RIGHT: CSRPTR 
GETS CSRPTR+41; CALL OVRFLO. 


ps 
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167 * "LEFT ARRON" MOYES CURSOR ONE POSITION LEFT; CSRPTR 
29468 * GETS CSRPTR-1:; CALL NDRFLO 

7 * 

IIT * "CONTROL & LEFT ARROW CON KEYBOARD)" LEFT JUSTIFY CURSOR: 
18171 * CSRPTR GETS CSRPTR TRUNCATED; CALL NDRFLO FOR SCNLOC CHK. 
IL re - / 

1173 * "PUTCHR" QUTPUTS CHARACTER: CSRPTR GETS 

IL PF * CSRPTRtL1i GOES TA OYVRFLO 

18175 * 

IL FE * “ENDCHR" TERMINATION CHAR: CLEAR EDIT FLAG: 

1417777 * EXIT THE EDITOR. ; 
W17°S * 

18179 * "HOME" HOMES CURSOR POINTER: CSRPTR GETS E898; NDRFLO 
19198 * 

jee : "CLEAR" CSRPTR TO END OF THE SCREEN GETS SPACES. 

11S 

IH1 8S * "CTRL I" INSERT A LINE AT THE LAST LINE ON THE SCREEN; 
oa ee ss CALL OVR1 (SCROLLS UP ONE LINED: CSRPTR GETS EES, 

IML SS : 

IBLEE * "CTRL DBD" DELETE LAST LINE: SCROLL DOWN CUNDR2); 

1187 * (CSRPTR GETS. ELEG. 

1198 * 

18199 * 

1190 * 

10194 * 

W192 * OVERFLON CHECKS IF SCROLL UP IS NEEDED; IF IT IS: IT 
1193 * SCROLLS UP AND MOVES DATA TO & FROM THE BUFFERS. 

7 t * 

Wiss * OYRFLO: IF CSRPTR < E208 THEN RETURN: IF EDIT IS ON THEN 
IHL IE * OVR1: BUFFLO+ GETS SCNPTR TO “Ct. R. “3 

1W197 * DSTADR GETS CSRPTR GETS ELE (LAST LINE ON SCREEN); 

IHL 98 * IF EBIT IS ON AND BUFFHI < BUFEND THEN MOVE THE TEST 
AHL * FROM GUFFHI TO *C.R. 7” TO THE LAST LINE. 

23200 * 

10204 #* 

W202 * 

aG203 * 

IHSH4 * UNDERFLOW CHECKS IF SCROLL DOWN IS NEEDED AND MOVES 
HALOS * DATR TO AND FROM THE BUFFERS. CURSER HAD BEEN 

JH20E * MOYER OFF THE TOP OF THE SCREEN AND IS NOW PUT AT THE 
A2a FP * HOME POSITION ON THE SCREEN 

FHSS am 

HAZHS * NDRFLO: IF CSRPTR > DFFF THEN RETURN (GO TO OVRFLQD); 
HH21A * IF EDIT FLAG IS ON “THEN NOVE LAST LINE TO BUFFHI 
ALLL * ON DOWN: SCRLON: CSRPTR GETS Eeees; NOVE LINE FROM 
pHS1 2 = BUFFLO TO FIRST LINE ON THE CRT. 

HA213 * 

214 » 

HALLS 7 

BOLLE * 

A217 * NOTE: DON“T SCROLL OFF SCREEN IN EXEC UNTIL AFTER 
HLL - THE EDITOR HAS BEEN RUN. 

nn) * * 

eter! * NOTE: EVERY LINE MUST HAYE A C.R. ON IT. 
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HA222 FCS2 CE EGBG HOME LDN ##E000 LOADS HOME FOSITION. 

@G@223 FC3S OF 1c STN CSRPTR STORES HONE IN CURSOR PTR 
. ee FCs? 39 ‘ RTS RETURNS TO CALLER. 

AAL22E6 * 

Ha227 FCSS Cé 68 CLEAR LDA B ##60 LOADS BLANK ¢C.R. >. 

Hazze FCSA CE E2ee LDN #FE200 LOADS END-OF-SCREEN PTR 
O8229 FCSD ag CLEARI DEN DECRENENTS BLANKING PTR 
Ha2s0 FCSE EF aa STA B BN BLANKS LOCATION. 

66231 Fede 9¢ 1¢ CPX CSRPTR TESTS IF DONE. 

OH232 FC42 26 FI BNE -« CLEARIL BRANCHES BACK IF NOT DONE 
HA233 FCd4d 39 RTS RETURNS. 

AH234 * 

GA235 * 

HALIE6 % 

BO237 * GETCHR INPUTS A CHARRETER INTO ACC A NITHOUT 
GGL3E i NOVING THE CURSOR: AND BLINKS THE CURSOR 
GA229 * 

Ha2da FC4#S DE 1c GETCHR LDN CSRPTR LOADS CRT CURSOR POSITION. 
O@241 Fld? 6s 86 CoM ON COMPLIMENT (FLASH POSITION). 
Hb24e2 FC4I9 CE 26Fea LDN #9968 LOADS BLINK COUNT VALUE. 
GA243 FC4do Hg GET DEN COUNT GETS COUNT-1. 

HbS44 FC4ID ZF FS BEQ GETCHR RESETS CTR WHEN TINED OUT. 
HO245 FO4F FP Faat TST $FHO1 TESTS IF A CHAR TYPED IN. 
HaSde FOSS 2A FS BPL GETA _ BRANCH IF CHAR NOT ENTERED. 
O6G247 FCS4I DE 1c LDN CSRPTR LOADS CURSOR POSITION 
He2dS FCSE AS Ga LDA A BN TESTS IF BLINKED ¢SOLID). 
A249 FCSS 2A Be  BPL GET2 SKIPS IF NOT BLINKED 

& 58 FCSA 63 oe CoM ON CLEARS THE CHARACTER. 

ares Fese Bé& Feee GET2 LDA A SF88H © LORDS A WITH CHAR. 

gp8252 FCSF 33 RTS _ RETURNS TO CALLER. 

O8253 * 

Abs54 * 

80255 * 

HO256 * 

88257 * EDITOR IS THE MAIN ENTRY POINT FOR EDITING 
PALES - * 

0259 FC6O DE ac EDITOR LDN BUFADR BUFFLO GETS THE 

G8l68 FCE2 DF 20 STX BUFFLO VALUE OF BLIFADR. 

@G261 FC64 DE OE LOX BUFEND SBUFFHI GETS THE 


Ha262 FCEE DF 22 STN BUFFHI YALUE OF BUFEND 


BG263 FCES SD REEDIT BSR HOME ENTRY POINT FOR 
Bb264 FC6A SD BSR CLEAR RE-EDITING TEXT. 
EDITRO STA A EDIT TURNS ON EDIT MODE . u{ <> 4 


GH266 FCEE DE : 
@G@267? FC?O8 DF = 
HO268 _ ai 

ba269 * 

bG2°P8 FCP2 DL  EDRERD BSR GETCHR W& GETS CSRPTR & A GETS CHR. 
@6271 FC?4 1B | ENDCHR CHP A #418 TESTS FOR AN “ESC” CHAR. 
Gb272 FCPE a4 BNE ED1 SKIPS IF NOT EDIT END. 


EDITIN LON CSRPTR SETS SCNPTR TO CSRPTR 
ST SCNPTR 


KOS HHP 


2 
C 
iy 
O8265 FCec 9° Ss 
i 
“ 


ho ty mths oe 
Qov'onmahKD 
Lice) 
icv] 
OW 
we] 


88273 FCPS CLR EDIT TURNS OFFF EDIT FLAG. 
ba2°4 FCPB RTS EXITS THE EDITOR. : 
€. 79 FCC 2 E02 BSR INSERT EDITS CHARACTER. 
ere FCPE 


F2 BRA EDRERD GOES FOR NEXT CHARACTER. 


a 


rAGE 

aa2Fa 
aaZ79 
gazaa 
RAPSL 
i ge 
aeees 
ga2e4 
ea2ss 
A286 
aaa? 
aAzaS 
aa2a9 
A299 
@0291 
BA292 
BA293 
Ba294 
Aa295 
AA29E 
ag2o? 
Ba29g 
Ag299 
BazaR 
BazB4 
ApsaS 
GazBz 
aasad 
aaza5 
Basa6 
( oP 
PrerSae 
aaza9 
ADSL 
B14 
BARL2 
AA212 
BOz14 
A215 


GASLE 


8@317 
8aS18 


8G? 


*K 

* 

* 

io 

* 

* 

INSERT CHP 
BLT 
BGT 
BRA 

* 

* 

CR CNP 
BLT 
BGT 
LDA 

* 

* 

RTCSR CMP 
BLT 
BGT 

RTARRO LDS 
BRA 

* 

* 

DELETE BSR 
BRA 

* 

fs 

LFTCSR CMP 
ELT 
BGT 
DEX 
BRA 

Fre 

CLER CMP 
BLT 
BEQ 

* 


CSRPTR 
PUTCHL 


UNDR2 
OYR2 


#$14 
ALDS2 
CLER 


PUTCH2 


#F1F 
CLEAR 


LFTIST 


MS) 
“Cc 


FOLLOWING IS THE MAIN EDITOR EXECUTION LOOP 


TESTS FOR A CONTROL “I’. 
SKIPS TO DELETE COMMD 
SKIPS FOR NEXT TEST. 
SCROLLS UP ONE LINE. 


TESTS FOR CARRIAGE RETURN. 
SKIPS IF HOME CSR CONND 
GOES TQ NENT COMND TEST. 
LOADS INTERNAL C.R. YALUE, 


TESTS FOR RIGHT ARROW. 
SKIPS IF AN “UP ARROW". 
SKIPS IF A “LEFT ARROW". 
LOADS CURSOR POINTER. 
STORES & INCREMENTS CSR. 


SCROLLS DOWN 1 LINE. 
SRPTR GETS ELE@ ¢CLAST LIND. 


TESTS IF “LEFT ARROW". 
SKIPS IF "DOWN ARRON". 
SKIPS FOR NEXT TEST. 
SUB. 1 FROM CSRPTR. 
STORES CURSER POINTER. 


TESTS FOR CTRL BACK ARRON. 
GOES TO CLEAR SCREEN. 
MOVES CSR TO LEFT OF SCREEN. 


* ALL OTHER CHARACTERS FALL THRU TO PUTCHR. 
* 


fe 


PAGE 


Baza 


HOS25 
BASLE 
Hse? 
BaS2E 
GAS29 
HASsea 
BASS1 
HASS2 
BASSES 
GASS4 


GAS36 
BOSSF 
GGI3E8 
HASSE 
Gasdea 
GAS 


BASIS 
aos44 
€ “do 
Cima & 
HG34;7 


BaS4ds 
BAS5a 
H8SS1L 
GG@332 
BASSE 
4@354 
BASIS 
HO356 
BASS? 
GAS53 
BASS9 
Gasé6a 


Has 


FCA 
FCAF 
FCB1L 
FCBS 
FCBS 
FCa? 
FCES 
FCBA 


FCBC = 


FCBE 
Feces 
FCC2 
FCCS 


FCC4 ; 
FOCE z 


FCCS 
FCCR 
FCCB 


FCCC 2 


FCCE 


FCDG 
FCDS 
FCOS 
FCD? 
FCD9 
FCDB 
FCDE 


PDS-V3A 
* PUTCHR DISPLAYS A CHARACTER ON THE CRT DISPLAY AND 
¥ ’ JNCRENENTS THE CURSER POINTER AS WELL AS CHECKING 
: - AND HANDLING CARRIAGE RETURNS 
* 
* 

DE iC PUTCHR LDN CSRPTR LOADS OLD CSRPTR. 

81 8D CMP A ##8D TESTS FOR EXTERNAL C.R 

er 84 BEQ CRLFA SKIPS TO DO ACR LF 

Ar 8a STA A GN DISPLAYS CHAR ON SCREEN. 

S1 6a CHP A #266 TESTS FOR INTERNAL C. R. 

er SP CRLF1 BER CRLF SKIPS FOR ER. LF. ' 

As PUTCH1L INN INCREMENTS CSRPTR. 

DP. ae PUTCH2 STN CSRPTR SAYES NEW CSRPTR 

29 12 BRA NDRFLO TESTS FOR OVRFLO & UNDRFLO. 

DE ac SUBZ2 LDN CSRPTR LOAPS CURRENT CRSR POSITION. 

Cé 28 LOA B #32 LOADS LOOP COUNT. 

Hg SUBS2A DEN DECRIMENTS CSRPTR 

oA DEC B - DECRIMENTS LOOP COUNTR 

26 FC BNE SUBS2A SKIPS BACK IF NOT DONE. 

20 86 ERA ALD2 SKIPS TQ CHECK UNDRFLQ. 

Cé 28 ADPSs2 LDA B #32 LOAPS LOOP CQUNTER. 

He RODSZA INS INCRE. CSRPTR IN INGEN 

oF DEC E =- DECRIMENTS LOOP COUNTER. 

26 FC BNE ADDS2A SKIPS SACK IF NOT DONE 

OF 2b ADD2 STX CSRPTR SAVES CSRPTR 


* 
* 
*K 
* 


* 


NDRFLO CUNDERFLOH) CHECKS FOR THE CURSOR GOING OFF THE 
TOP OF THE SCREEN. THE iNDEN REG. CONTAINS THE CURSOR 


POINTER WHEN THE ROUTINE IS ENTERED. 


EGGa NDRFLO CPX ##EG00 TESTS IF CSRPTR 


> BB 


SA 


BGE QVRFLO SKIPS IF CSRPTR 
LDR B EDIT TESTS IF EDITOR 
BER UNDR2 SKIP TO EXIT IF 
BSR MOVES MOYES LAST LINE 


OL: 
FD?3 UNDR2 JSR SCRLON MOVES ALL LINES 


BSR MOVES MOVES BUFFLO TQ 


D= DFFF 
GREATER. 

IS ON. 
EDITOR OFF. 
TO BUFFHI. 
DOWN ONE. 
TOP OF CRT. 


£3 


PAGE 


HAS62 
ap 63 s 


of FCEO : 


HO3Z68 
HOUSES 
AHAs/A 
HASrL 
HaS72 
HOSTS 
Aas 4 
HAS? S 
G@GS76 
HOSP? 
AGS7S 
HAS? 
HAasS8a 
HASS1L 
@ASe2 
HASSE 
HasS84 
HHSSS 
GASSE 
HASSE 

GASES 


GESI4 


BASIE 
G0397 
HOSIE 
HaS99 
boFea 
AG401 
Hod a2 
GG40s 
bb4o4 
80405 


Gag 


FCES 
FOES 
FCE, 
FCES 
FCEB 


PCED = 
FCEF 27. 


FCF 4 
FCFS 
FCFS 
FCF? 


FCFS 
FCFA 
FCFC 
FCFE 
FDae 
FDS 
FDa4 
FOGG 


= FRaES 
Ss FDGB 


FD®8D 


FDGF 
FD11 
FDIS 
FD15 


FD16 
FD18 


PDS~VSA 


E208 


* OVERFLON CHECKS FOR SCROLLING UP (CURSOR IS OFF 
* THE BOTTUN UF THE SCREEN); INDEN CONTRINS THE CURSOR 
* POINTER UPON ENTRY. 

* 


* 


OVRFLO CPS #FE208 TESTS AND ENITS IF 

BNI OWREST CURSOR ON SCREEN 

BSR CVRI DOES OVR1 CHECKING. 

LDA B EDIT TESTS IF EDIT Is GH, 

BEQ OVREST. .ESITS IF IT IS OFF. 

LDX BUFFHI LOADS HI TEXT POINTR. ; 

CPx BUFEND TESTS IF PTRS NOT EQU. 

BEQ OVREST EXITS IF NO TEXT. 

BSR MOVELA MOYES CHRS TO LAST LINE. ° —_ 

LDN SRCADR RESETS NEW BUFFHI 

ST BUFFHI LOCATION. | 
OVRENT RTS ENITS BACK TO EDIT. 
* 


* 
* | 
m O¥R1 DOES ACTUAL SCROLLING UP. 
* 

OYR41 LDA B EDIT TESTS JF EBIT IS ON 


BEW OVR1IA SKIPS IF EBIT OFF. 
LDS BUFFLO LOADS TEST PTR LON. 
STS OSTADR DESTINATION OF TEXT MOVE. 
LDX SCNPTR SQURCE. FOR MOVE. 
BSR NOVEL MOVES LINL TQ BUFFFLO. 
STS BUFFLQ SAVES NEW BUFFLO PTR. 
OYRIA BSR SCRLUP SUROLLS SCREEN UP 1. 
QYVR2 LOX #$E1E@ CURSOR GETS PUT ON 
STS CSRPTR = LAST LINE. 
ST# DSTADR INIT DEST FOR NEXT MOYE. 


* FOLLOWING MOVE THE CURSOR 

* 

LFTIST LDA B CSRPTR+1 LOADS LO BYTE OF PTR 
AND B #$E0 TRUNCATES TO LEFT OF LINE 
STA B CSRPTR+1 SAVES L. J. ED PTR. 
RTS RETURNS TO EDITOR. 

* 

* 

CRLF BSR  ADD32 LINE FEED. 


BRA LFTIST CARRIAGE RETURN 
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GA4a? 
HE4FHS 
BeAAS 
h& 18 
GG411 
HH4F12 
HG413 
Hedi 4 
HO415 
HOFLE 
684177 
Ha41é 
HO419 
Ho420 
Haded 
HO422 
BA422 
Bade 
BG425 
HA426 
8G427 
Hades 
HG429 
HOAs 
BO4S1 


OG436 
Bads7 
H84s8 
HAIS9 
60440 
Heddy 
Ga4d2 
BO44s 
66444 
HO44S 
60446 
Ba44 7 
GG449 
Hedda 
86458 
Ha451 
88452 
BAFSS 
HG454 
88455 


818 


FD1A 
FOLIC 
FDIE 


Foe & 


FD22 
FD24 


FD25 § 


FD27 
FD29 
FDA 
FDZC 


FRZE = 


FDSG 
FDS1 


FDSS ¢ 


FDSS 
FOs? 
FDSS 
FDA 
FOS 
FDSE 
FO48 
FD41 
FD43 
FD45 
FD4? 


PDS-¥3A 


* 
* 
* 
* 
* 
* 
* 
* THE CRT. 
* 
* 
MOVES LDN 
STS 
LDN 
CPN 
BER 
DEN 
MVS1 EPx 
BER 
DEN 
LDA 
CMP 
BNE 
INS 
MNYyis2 ST 
BRA 
* 
* 
*K 
* 
* 
* 
we 
*x 
* 
* 
* 
* 


HOVE LDN 
MOVYELA INS 
NOVEL LDA 
STN 
LON 
STR 
INS 
ST 
CNP 
BNE 


' MOVEXT RTS 


MOVE INSTRUCTIONS MOYE FROM QNE BUFFER AREA TQ 
ANOTHER BUFFER AREA 


MOVES CALCULATES THE SOURCE ADDRESS OF THE DATA IN 
BUFFLO CIF IT EXISTS) FOR MOVING TQ THE FIRST LINE ON 


MOVE 1 IS THEN ENTERED TQ DO THE MOWING 


SCNPTR 
DSTADR 
BUFFLO 
BUFADR 
MOVWENT 


BUFADR 
NYS2 
BowSN 
B ##60 
MVS 


BUFFLU 
MOVE 


NOVEL 


IN THE INGEN REG. | 


DSTRDR 
B ##68 
MOVE 


CSRPTR GETS EXG8 CHOME). 
SETS NOVWE AODRESS. : 
LOADS LO BUFFR ACDR 

TESTS IF BATA STRING. 
EXITS IF EMPTY. 

MOVES BACK FROM BLANK 
TESTS IF SROADR = SUFFRDR. 
NOVES IF START OF LINE. 
NEXT LOWER CHAR 

GETS SQURCE CHAR FOR TEST. 
TESiS FOR “C_R, ". 

SKIPS BACK UNTIL "C. &. * 
POINTS BACK TO FIRST CHAR 
SAVES LO ADDRESS. 

NOYES DATA. 


MOYEL MOVES A SET OF CHARACTERS FROM EITHER THE TOP - 
LINE OF THE SCREEN TO BUFFLO OR FROM BUFFHI TO THE 
BQTTOM LINE OF THE SCREEN. THE SOLIRCE RADOGRESS IS PASSED 
THE DESTINATION ADDRESS IN DSTARDR. 
AND THE MOWE IS TERMINATED BY A "CLR." IN THE LINE OF 
FEST BEING MOVED 


LOADS SQURCE ARDRESS INTO W%. E- 
POINTS TQ NEST SQURCE CHAR 
LOADS SOURCE CHARACTER 
SAYES THE SOURCE POINTER 
LOADS DESTINATION ADDRESS 
STORES CHAR. IN DESTINATION. 
NENT DESTINATION RODRESS. 
SAVES DESTINATION PTR 

TESTS IF MOVE FINSHED ¢CCR> 
SKIPS BACK IF NOT DONE. 
RETURNS TO CALLER. 


&9 


PAGE 

ee tar 
Ongggh h 
Hugs 
86468 
HO461 
GO462 
HO4FES 
baded 
Ha4es 
G0466 
G846° 
bA468 
GadEg 
He4r?e 
Had el 
O@47"2 
OOPS 
Had 74 
GE4PS 
AG4rs 
Had??? 
bO478 
HF 79 
G8488 
He4S1 
Hede2 


we 


Haqds4 
OG485 
HO4FsE 
Gb4s? 
Hadas 
Gads9 
BAdSe 
Gago4 
GH4S2 
GO493 
Gad a4 


G11 


FD4g 
FRSA 
FD4B 
FO4C 


FD4E & 


FD4F 
FDS4 
FDSS 
FDSS 
FDS? 
FOSS 
FOSA 
FDSB 


FOSD 2 


FDSF 


FOER 
FD6S 
FOES 


FRer 8s 


FREES 


FDSB 26 


FDED 
FDSF 
FO72 


DURING 


= 
= 
rm 


fh. 


Iinnin & 


3& 
AD 


LOX 
STR 
DEX 
STS 
PUL 
CHP 
BNE 
RTS 


Dm DODO 


MOVES SUBROUTINE 


THE NOWE2 SUBROUTINE MOYES THE LAST LINE ON THE 
SCREEN TQ THE HIGH AREA OF THE BUFFER ¢(BUFFHI. DURING 
SCROLLING. 


THE TENT IS TEMPORARIL'' STORED ON THE STACK 


THE MOVE 


OVR2 


STACK 
ON 


#F60 
NY2d 
EUFFHI 
BN 


BUFFHI 


#00 


MW2s 


THE MOVE IS TERMNIINATED BY A "CLR" 
THE TEXT IS STORED AT BUFFHI ON DOWN. 


® GETS ADDR OF LAST LINE. 
SETS TERMINATION FOR 
POPPING. 

LOADS SOURCE CHAR 

POINTS TQ NENT CHAR 
TESTS £F LENE To" *, RY 
MOVED TO STACK 

INIT. DESTINATION. 

STORES CHAR 

POINTS TO NENT LOCATION. 
UPDATES BUFFER PIR. 

GETS NEST CHAR. 

TESTS IF ALL CHRS STORED. 
SKIPS BACK IF NOT STORED. 
RETURNS TQ CALLER 


SCROLLUP MOVES ALL LINES UP 1. & CLEARS LAST LINE. 


LDS 
LDR 


#FE080 
F20N 
Ba. 8 


##E1E8 
SCRP1 
CSRPTR 
CLEAR 


SETS CRT HOME POSITION 
GETS CHAR FROM NEXT LINE 
STORES CHAR ON PREY. LINE. 
POINTS TO NENT LINE. 

TESTS IF MOVE DONE, 

GOES BACK IF NOT CONE. 
SETS CSRPTR TQ LAST LINE 
CLEARS LAST LINE. 

EXITS. 
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BH496 
praar 
bes 
Ha4g9 
Hasea 
beset 
BaSke 
HGsas 
Has 


gases 


BASOG 
6ase, 
Basa 
8G5a9 
Hasse 
6G@511 


98512 
nas44 
BaSLS 
Ba516 
Ha54 7 
p0518 
& 
argon 
cea 
ea522 
ea522 
Aas24 
pa525 
pA526 
aaso7 
aasze 
Haga 


812 


FDSD 
FDSF 
FDS1 
9 FDSZ 
FD96 


FOSS § 
FDIA 2 


FOSC 


FOOD : 
FOSF 


FDRG 
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* 


SCRLDOLN MOVES ALL LINES BOHN ONE AND 


. CLEARS THE TOP LINE ON THE SCREEN. 


E1DF SCRLDN 


; 8B SCROL 


* 
* 
* 
11 OUTSTR 
He OuUT.L 


OUT? 


** 


LON #FEIDF INITIALIZES THE POINTER. 
LOA B BSN LOAPS DATA TO, BE MOVED. 
STA B #20. N NOVES DATA DOWN ONE LINE. 
STX CSRPTR = SAVES CURSOR. | 

DEN POINTS TQ NEXT BYTE. 

CPX #$DFFF TESTS IF MOYE FINISHED. 
BNE SCRD1 SKIPS BACK IF NOT DONE. 


LPR B ##68 LOADS BLANK TO CLEAR LINE. ; 
INS POINTS TO NEXT CHARACTER 
STAB BN CLEARS BYTE ON LINE 4. 


CPS #FEDIF TESTS IF LINE 2 CLEARED 
BNE SCRB2 SKIPS BROCK IF NOT CLERRED 
RTS RETURNS. 


QUTSTRING PRINTS QUT THE STRING BETHEEN THE 
QUTBUF POINTER AND THE BUFEND POINTER. 


LON QUTBUF BUFPTR GETS START OF TEST. 
LOA A BS LORDS CHAR TO BE PLT OUT 
STS BUFPTR SAVES SQURCE POINTER. 

JSR PUTCHR PRINTS CHARACTER 

LOX ~° BUFPTR . RESTORES POINTER. 

CPS QUTEND TESTS FOR END-OF-TEST 


BEQ OuUT2 EXITS IF END OF TENT. 
INS INCRE. PTR TO NENT CHAR. 
BRA OuTL GOES BACK FOR NEST CHAR. 
RTS EXITS ROUTINE. 

NOP UNUSED LOCATION. 


END OF EDITOR PROGRAM. 
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HASSI1 

rae 
HADSS 
GAGL4 
HaSSS 
GO526 
Ha5s? 
AAS33 
HASSS 
@a54a 
Ho544 
GG542 
HAS4 s 
Ha544 
OoS4S 
86546 
Hoos * 
GH548 
HHS42 
68558 
HHSSL 
AaSS2 
HaSSS 
bass 
HaAsSSS 
—— 


HaSag 
BAS6a 
HOS61 
bG562 
HOS6S 
Has6E4 
BASES 
Gh566 
base? 
8856S 
BOSE9 
Gasre 
O85 1 
G52 
BaSr7S 
BG574 
BASS 
GA576 
BOSr? 
84573 
BaS79 


PDS-VSA 


THE MINI-ASSEMNBLER 


THE MINI-ASSEMNBLER IS A FINED-FIELD ONE INSTRUCTION 
PER LINE 2 PASS ASSEMBLER. THE MNINI-ASSSENBLER FORNAT 
IS DESCRIBED ON PAGES 9-2 AND 9-3 ‘OF THE SPHERE 
OPERATORS REFERENCE MANUAL. 

THE THO PASSES ARE REQUIRED TQ FORM THE LABEL 
RAPPRESSES. THE SECOND PASS EQUATES THE ADDRESS FOR 
LABLES REFRENCED BEFORE THES ARE DEFINED IN THE PROGRAM. 


ON ENTRY': 
SRCASM = ADDRESS OF SOURCE TENT TO BE ASSEMBLED. 
BUFFLQ = ADDRESSED OF OBJECT CODE PRODUCED, 


ON ENIT: 


PCVYAL (PROGRAM COUNTER YALUES = LAST LOCATION OF 
THE ASSEMBLED OBJECT PROGRAN. 


ALGORITHM: 


*ASMBLR: SET PASS COUNT TO ZERO; SET PCYAL TQ DSTASM: 
*ASMLIA: OPERAND VALUE FORMED IN “ONDVAL": 

* A GETS CHAR IN N& COPERAND TYPE): NS GETS N+? 

* IF CHAR Sé IS A "B" THEN ONDWAL GETS WALUE FROM SYMBOL 
* TABLE ELSE ONDYAL GETS YALUE FROM ASCBIN CONVERSION: 
*SYMBL: EQUATES SYMBOL CPC VALUE IS THE “ " SYMBOL 
*CLABELIJ) Ti A LABEL VALUE: 

* STNYAL GETS PCYAL: 

* IF ¥€1) IS AN "=" THEN SYINVAL GETS ONDYVAL: 

* IF (4) IS NOT A "=" OR A SPACE THEN IF SECOND PASS THEN 
* EXIT ELSE START SECONG PASS: 

* LABEL ENTRY IN SYMBOL TABLE GETS SS'NVALS 

*LDOP: PUT OPERATION CODE INTO THE OBJECT CODE: 

* CONVERT XC2)-NCS) INTO BINARY 

* SAYE PCYAL: 

* F.C. GETS P. £. +4; 

*OPRND: FORM QPERAND IN QRJECT CODE: 

* FORM ONDYVAL INTO PROPER SIZE BASED ON CODE IN X¢6); 

* STORE NEW QPERAND WALUE IN NEMORY: 

“PF. GETS Ft, 42 OF 23 

* GET NEXT LINE OF SOURCE; 

* GO TO ASMA: 

* 

* 
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H°S581 FDAL °F 8@84 ASMBLR CLR ARS INIT. PASS CTR FO FRST PRESS. 2 
iN 32 FRAT DE 28  ASNI LDN BUFFLOQ SETS PC CNTR TO START OF 
ayess FDRS DF 4&8 STS PCVAL OBJECT CODE. ,; 

BA584 FDAS DE 26 LDN SRCASMN LOADS ARBOR FOR FIRST LINE. 
HASSS FOAA DF 82 ASMNIA STN TMP L SAVES ARDR OF) CURRENT LINE. 
Q@G598S FRAC AG GS LDA AR as LOADS SYMBOL (LABEL). 

Base" FRAE Eé& 87 LDA B FN LOADS OQPERAND TS'PE CODE 
@G588 FDRG C1 4e CHP B ##°R IF ® LORDS DATA IN SYMBOL 
GHI89 FDB2 27° 6B BER INDADR ADDRESS. GOES TO SYMBL. 
G@G590 FOB4 as INXS SETS INDEN TO START OF : 
GBASSL FDES as INS OPERAND NUMBER 

GO592 FDBS 88 INS 

BASIS FRE? as INN 

GAI9I4 FOES as INN 

BES25 FOBS as INN 

Ha596 FDBA as INS 

GaSg" FOBB BD FF22 JSR ASCBIN CONVRTS # TQ BINARY IN B-A 
G8@598 FDBE DP? 2A ASMIB STA B ONDVAL STQRES OPERAND YWALUE IN 
GB8I99 FOC 97? 2B STA A ONDYAL+1 ONDYAL. 

Heé6ea * 

Ha6eL * 

HG6G2 * 

BHEAS * FOLLOWING FORMS THE YALUE FOR THE LABEL. 

bb6ad * 

HHEGS FOC2 DE G2 SYMBL LON TAMPA LOADS ORIG LINE PTR INTQ &. 
84605 FDCd AS 8a LDA A aS LOADS SYMBOL CLABEL). 

i OF FoCe Es @4 LOR B iss LORDS LABEL CONTROL CHAR. 
aWWae FDCS DE 48 LDN PCYAL LABEL WALUE GETS PCVAL. 
H86GS FOCA PF 2c STN SYAVAL . 

8G618 FOCC C1 sp ' CMP BO ##*= TESTS IF LABL IS EQUATED. 
OG611 FOCE 26 O86 BNE ASH2 SKIPS IF NOT EQUATED 

GG612 FDRG PE 2A LDN OND YAL LABEL WALUE (SYMNVALS GETS 
HH61LS FOD2S DF Zt STX SYAMVAL THE OPERAND VALUE. 

@G614 FRD4 20 GE BRA ASMS CONTINUES EVALUATION 

OHG615 FODE C1 20 ASME CMP B #¥° TESTS FOR END-OF-PROGRAM 
86616 FDDS 27 GA BEQ ASMS SKIPS IF. SPACE “NOT END). 
88617 FODA 7D aead TST ARS TESTS IF SECOND PASS. 

G@@618 FRPP 2° G1 BEQ ASMNSA EXITS IF SECOND PASS 

BH619 FDOF 39 RTS 

O8620 FDEG DF a4 ASMN2ZA STA B ARS SETS CTR TQ SECOND PRSS. 
O862e1 FDEZ 28 Ce BRA ASML GOES BACK FOR SECOND PASS 
8G622 * 

HOLS * 

Ha624 * 

HW625 * FOLLOWING PUTS THE LABLE VALUE IN THE SYMBOL TABLE 
GG626 sk 

Hb62" FDE4 SD 41 ASMS BSR SYMPTR SS GETS SYMBL TABL ENTRY ADR. E 
GH628 FDES 96 ZC LDR A SYMYAL STORES THE LABEL 

G@G629 FOES Ar ae STR A aN ADDRESS ¢SYMVAL) INTO THE 
88638 FDEAR 96 2D LDA A SYMVAL+1 SYMBOL TARBEL. 

OH6SL FDEC AF aL STR A 1% 

YS 


815 


FDEE 


6 FOFO 


37 FOFL 


GHGS9 
HaEedag 
Fae4 1 
HaEed2 
He64s 
Gaed4 
BH64S 
Gb646 
aaed? 
HHE4s8 
Hae4a 
bg6oa 
HaSSL 
GG652 
HO6IS 
ba6s4 
HO6SS 
OG656 
Hees)? 
HG658 
f (59 


bere 
HOES 
Ha674 
Bers 
aber 
BOF? 
88678 
H8679 
Geaésa 
Gest 
aG6S2 
HASSS 
e” “e4 
RS 
haess 
88697 
88688 
8 


FDF2 
FDFS 
FDFS 
FOF? 
FDFS 
FDFC 
FDFE 
FEAR 
FEGL 


FEG@S 
FES 
Fear 
FEGS 
FEGQBR 
FED 
FEQF 
FEL2 


FELS 
FES 
FELG 
FELS 


FEAF 
FE2L 
FE23 


FESS ; 
FEZ? :« 


FE2S 
FE2S 
FEB 
FEZD 
FE2F 


PDS-V3A 


9 FELA 26 
9 FEIC 
FELD 2 


* FOLLOWING FORMS THE OPERATION CODE. 
* 


LDOP LDN 
INN 
INS 
INS 
LOA A 
CMP A 
BER 
JSR 
LDN 
STA A 
INS 
STS 


* 
* 
‘* 
x 


OPRND LDN 
LDR A 
LDN 
CHP A 
BGT 
EBEQ 
CHP A 
BEW 


ASMt LDN 

ASMAR - INN 
LDA A 
CMP A 
BNE 
INS 
BRA 


THPA 


aN 
#F° 
OPRND 
ASCBIN 
PCVAL 
aS 


PCVAL 


#S°E 
RELTIV 
EXTEND 
#¥°D 
DIRECT 


TMP 1 
Ga 
#F60 
ASN4A 


ASMIA 


NDADR BSR SYMPTR 
LDN 8 
STS ONDVAL 
BRA SYMBL 

* 

SYMPTK ASL AR = 
fit B = 

LOADS STR A TMP+1 
57H 8B THP 
LDX TMP 
RTS 


LOROS ORIG LINE POINTER. 
SETS ® TQ PQINT TO 

THE OP CORE CHARS. 

GETS OP CODE CHAR INTO A. 
TESTS IF OP CODE EXISTS. 
SKIPS IF NONENSISTANT 
CONVRTS OP CODE TO BINARY. ‘ 
LOAPS FOINTR TQ OBJECT CODE. 
STORS OP INTO OBJECT CQDE 
SETS TO NENT OBS CODE LOCTN. 
SAVES P.C. POINTER 


FOLLOWING STORES INTO THE OBJECT CODE THE SIZED QPERAND 
* 


LOADS SQURCE LINE POINTER 
LOADS OPERAND SIZE CHAR. 
LOADS S WITH OBJ CODE PTR 
TESTS LENGTH T''PE. 

SKIPS IF AN "RP" OPERAND 
SKIPS IF AN "E* SIZE GPRND 
TESTS IF SIZE CHR EXISTS. 
SKIPS TF "D"COMND ENISTS 


FOLLOWING GETS THE NENXT.LINE. 


LOADS START OF LINE IN 

ORDER TO FING NEXT LINE. 
LOADS CHAR FROM SOURCE LINE 
TESTS FOR A CARRAGE RETURN 
SKIPS BAK UNTIL C.R. FOUND. 
POINTS TQ FIRST LINE CHAR. 
GOES BACK TO ASSM. NEST LINE 


4 
* 
ik 
* THE FOLLONING ARE. SUBROUTINES USED 8Y THE MAIN CODE. 
* 
* 
I 


GETS CONTENTS QF 

SYMBOL LOCATION. 

STORES AS OPERAND. 

RETURNS TQ FIN LABEL VALUE. 


MULT LABEL BY 2 TQ FORM 
POINTR INTO SYMBOL FRBLE. 
LORDS POINTER INTO THE 
SYMBOL TABLE INTO X. 
RETURNS TQ CALLER 
RETURNS. 
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Ha69e 
G el] TOT 
HES 
Ab694 
HO695 
HG696 
Hasse 
Ab698 
HaESS 
08788 
Har ea1r 
Aa7as 
Boras 
bara 
PAPAS 
BOGS 


EXTEND LDA 
STA 
INN 

DIRECT LDA 
STA 
INS 
STN 
BRA 

* 


RELTIV INN 
STN 
LDA 
SUB 
DEN 


Dar DD 


DDB 


STA A 


ERA 
END 


% £F 


ONBYAL 
aX 


ONDYVAL +4 
by X 


PCYAL 
ASI4 


PCVAL 
ONDVAL +4 
PCYAL +1 


a 
ASM4 


STORES HI BYTE QF QPERAND 
INTO OBJECT CORE 

INC PC TO POINT TQ NNT ND. 
STORES LO BYTE OF OPERAND 
INTO OBJECT CQDE 

INC & SAVE Pic. TO POINT TO 
NEXT @S'TE, 

GOES TQ WORK ON NENT LINE 


INCRIMENT P.C. PTR TO POINT 
TO NST BYTE & SAVE P.C.. 
LOADS LO BY'TE OF OPERAND 
FORMS RELATIVE OFFSET. 
INSERTS RELATIVE BYTE INTO 
OQBIECT CODE 

GOES TO ASSMBL NENT LINE. 


OF THE ASSEMBLER PROGRAN. 
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OMass 
k 

aaties 
HHS 4 
AGGESS 
HoOuSé 
Hoes? 
Bedsse 
be@ass 
BoHSE 
Hea91 
baag2 
HAGIS 
Hpag4 
Hbags 
HAE 
Hud? 
HHHIS 
G8G8ag9 
88188 
HG101 
HeLbS 
HLS 
boLe4 
HO105 


bas 


BOLBS _ 


{ ‘a7 
eres 
HALA9 
68118 
@61114 
be11e 
G@A113 
b8114 
A9115 
08116 
goi17 
Hal1e 
80119 
88120 
80121 
HALLS. 
B8123 
bb124 
90125 
BOLLE 


88135 
GOLS6 
a 
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DEBUGGER 


THE DEBUGGER FOR THE PDS Si'STEM WAS DESIGNED TO 
PROVIDE A VERSATILE TOQL FOR USE IN PROGRAM TESTING AND 
DEBUGGING. IT ALLOWS FOR BREAKPOINTS. MINI-ASSENBLER 
SYMBOL TABLE REFERENCING. STACK MANIPULATION AND 
INPUT IN EITHER HENADECIMAL, OCTAL OR DECIMAL. 

THE DEBUGGER FRINTS A PROMT CHARACTER ">" ON EVERS NEW 
LINE. AN INSTRUCTION CAN BE TYPED IN WHENEVER THE CURRSOR 
IS BLINKING, EXCEPT NHEN A NUNBER IS BEING TYPED IN. + 

THE DEBUGGER CALLS THE EDITOR WHENEVES A NUMBER IS TO BE 
INPUT, SQ CORRECTIONS CAN BE NADE IF THE HRONG DIGIT IS 
TYPED IN. THE POINTER "PCYAL" POINTS TO THE CURRENTLY’ 
OPENED BYTE LOCATION. THE DEBUGGER OPERATES ON WHATEVER 
BYTE IS POINTED TO BY PCYAL. FOR FURTHER DETAILS SEE THE 
SECTION ON THE CEBUGGER IN THE OPERATORS REFERENCE MANLIAL. 


THE DEBUGGER IS IMPLEMENTED BY A SMALL ROUTINE TO SET 
UP ENTRY CDEBUG) AND A LARGE ROUTINE WHICH DOES A RANGE 
COMPARE TQ FIND THE PROPER COMMAND AND THEN ENECUTES THE 


‘ CONMAND CRUMNBUG). NOTE THAT SINCE COMMANDS ARE 


INTERPRETED BS RANGE. ANY KEY STRUCK WILL PROOGUCE 
A COMMAND EXECUTION. SUCH AS A". " BEING INTERPRETED 
AS A "+" COMMAND, 


COMMANDS : 


"CR." LINE - PRINTS “>" OUT ON A NEN LINE. 

" " CHANGE - THE SPACE COMND CHANGES CONTENTS FROM ¥ TO 2. 
"+" OPNNST - OQFENS NEST LOCATION 

"=" OPNPRE - OPENS PREYIQUS LOCATION. 

"B" BRESET - SETS A BREAKPOINT AT THE OPENED LOCATION. 
"C" CLRBRK - CLEARS BRKPOINT. MUST BE DONE BEFORE ENIT. 
EY EXIT = PERFORM RTI - ENECUTE AT ERKPOINT LOCATION, 
"G" GOLOCN — STARTS EXECUTION AT GPENED LOCATION. 

*“O" OPNLUE - OPENS LOCATION THAT IS TYPED IN AFTER “O™. 
"R" OPNREG - OPENS THE TOP-OF-STACK LOCATION. 

"“S" SETSTK - SETS THE STACK TQ THE OPENED LOCATION 


"T" OPNTBL OPENS LOCATION IN SYMBOL TABLE OF NEXT CHR. 
SUBROUTINES: 
INPCHR INPUTS A CHAR. INTO A AND PRINTS IT. 


INPNUM - INPUTS A NUMBER INTO B-A FROM THE KEYBORRD 

PNTBYT - PRINTS ACC A AS 2 HEX DIGITS ON THE SCREEN. 

PNTDIG - PRINTS B-A AS 4 HEN DIGITS ON THE SCREEN 

NEWLIN - PRINTS ACR. AND A “D" ON THE SCREEN. 

DSPROR - PRINTS BY'7E ADDRESS (NNSNN) AND BYTE CONTENTS CY%'d 
AS DXXXN YY ON THE SCREEN 


=a 


PAGE 

HGLS8 
a 
bE a 
out4d1 
HbL42 
HB1423 
O8144 
8AL45 
HOLdIE 
G0147 
814s 
A8149 
98158 
e154 
HaLSS 
G@L53 
Head S4 
Aa4155 
e156 
60157 
88158 
98159 
HAL6A 
00161 
HOLES 
HA162 
DALE 
& $5 
pweeE 
b8167 
HaL68 
88169 
9OL 78 
HA171 
oaLPe 
8@173 
Od 74 
A@L 75 
OL PE 
bb177 
Ha178 
HHL 79 
Ha1ee 
80181 
na1s2 
AAL183 
Hea1e4 
08135 
80186 
80187 
“8818s 
881389 
F 98 
KRe1 
He8192 
88193 


i] 


G64 


FES2 : 


FESS 


FE&86 § 


FE&s 


FESA ¢ 


FESC 


FESE § 


FESO 
FES2 
FES4 


FES6 « 
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BD 


y 1 


st 


FCBE 


* 
BGPOPL 
POPLIN 


* 


“OK 


DEBUG 
PBUGL 


*K 
INPCHR 


* 
* 
* 
* 
RUNBUG 


CHANGE 


* 
OPNPRE 


* 
* 


OPNNST 
* 
* 
CLRERK 


* 


oO 


BRKSET 


DB 


6D DUD 


NEHL IN 
INPCHR 
RTARRO 
PCVAL 
RUNBUG 
DBUGL 


GETCHR 
PUTCHR 


##” 
BGPOF IL 
OQPNPRE 
INPNUM 
PCVAL 
G8 
POPLIN 


#$"— 
OPNNST 
CLRBRK 


DSPROR 


DSPADR 


#F°C 
BRKSET 
EXIT 
ERKADR 
BRKSAY 
EX 
DSPADR 


a x 
BRKSAY 
BRKADR 
#SSF 
MX 
POPLIN 


NOVES CURSOR UP ONE LINE. 
CLEANS UP STACK FOR 
DISPLAY OF C.K. 2. 


PRINTS. °C..R. 2" 

READS IN COMMAND. 

INSERT BLANK. 

LOADS CURRENTLY OPENED Lac. 
EXECUTES DEBUG COMMAND. 
GOES GACK FOR NEXT COPIND. 


RERD IN CHAR INTO A. 
CISPLAYS CHARACTER. 
RETURNS TO CALLER. 


TESTS FOR SPACE. 

SKIPS fF. fA "CR." ¢LEne, 
SKIPS FOR OTHER CMND TESTS. 
INPUTS NEW BYTE CONTENTS. 
LOADS OPENED BYTE LOCATION 
STORES NEW BS'TE DATR 

GOES TO INPUT NEXT COMMAND 


TESTS FOR A "=-" COMMAND. 
SKIPS IF A “+” CORMAND. 
SKIPS TO TEST FOR OTHER CMND 
FORMS PREV. LOCATION ADDR. 
GOES TO OPEN THE LOCATION. 


FORMS NEXT LOCATION ADDR. 
GOES TO OPEN LOCATN BYTE. 


TESTS FOR A "C" CONMAND. 
SKIPS IF A "“B" COMMAND. 
SKIPS FOR NEXT COMND TEST. 
GETS ARPRESS OF BREAKPOINT. 
LOADS ORIG BS'TE CONTENTS. 
RESTORES BYTE DATA 

GOES TO OPEN THE LOCATION. 


LQADS DATA OF OPNED LOCRTN. 
SAYES DATA OF OPNED BYTE. 
SAVES ACDR. OF BREAKPOINT 
LOADS SOFTHRRE INTUP COMND. 
SETS AN SHI AT OPNED BYTE 
GOES TQ NEXT LINE FOR CONND 


G81 98 
G@6199 
Hale 
6a201 
aa2a2 
GG20S 
HeLa 
ba205 
Ga20e 
be207 
AALAS 
Ha2a9 
Ha210 
Ga211 
ba212 
G6213 
be214 
G@215 
88216 
8a217 
GbL18 
Ha219 
Hef20 
GR ‘ed 
Re 
G8223 
Ha224 
G8225 
HA226 
gaeer 
HALLS 
G8229 
HH2s0 
HG231 
pa2s2 
OG233 
HaLs4 
8@235 
HOLSE 
GG23 7? 
HaL2S8 
Bb239 
88248 


88241 


HG242 
BH243 
88244 
60245 
. ye 


a0548 


bao 


PDS-¥3A 


ADSE 
eo 
1A 


6018 
a4 


aazs 


OPNREG TSN 
INS 
INN 
BRA 

* 

* 

SETSTK CNP 
BLT 
BGT 
TXS 
BRA 

K 

* 

o* 

* 

* 

* 

*« 

* 

* 

DSPADR STN 

DSPADL BSR 
BSR 
ISR 
LDN 
LDA 
BSR 
RTS 

Ke 

* 

OPNTBL BSR 
ASL 
CLR 
BRA 

* 

* 

PNTDIG LDA 
BSR 
LDA 
BSR 
RTS 

* 

*K 

NEWLIN LDS 
STS 
BRA 

*K 

* 


PNTBYT LDN 
ST 


CLR B 


LD 


DSPADR 


#F°S 
OPNREG 
OPNTBL 


DEBUG 


FOLLOWING DISPLAYS THE LOCATION ADDR. 


PCVAL 
NEWL IN 


PNTBYT 


INPCHR 
OPNLCI 


PCVAL 
PNTBYT 
PCVAL+1 
PNTBS'T 


#FODSE 
IOBUFF 
PNTBUF 


“* FOLLOWING PRINTS QUT 2 
ok 


#16 
ARB 


# ITOBUFF 


OPENS TOP-GF-STRCK. 

PCVAL GETS STACK POINTER 
CCLEANS UP THE STACK). 
GOES TO DISPLAY THE T=0-5. 


TESTS FOR AN "S" COMMAND. 

SKIPS IF AN “R" COMMAND. 

SKIPS FOR THE "T" COMMAND. 

STACK POINTER GETS PCHAL. : 
RETURNS TQ INPUT COMMANC. 


FOLLOWING ARE SUBROUTINES USED BY DEBUGGER. 


& CONTENTS. 


SAYES OPENED LOCATION ADDR. 
PRINTS A O"L &." AND Y>*. 
PRINTS QUT "PCYAL" IN HEX, 
PRINTS A SPACE. 

LOADS PTR. TO OPEND LO’ 
LOADS DATA FROM LOCATN 
PRINTS DATA IN HEN FORMAT. 


RETURNS TQ INPUT COMMAND. 


LOADS A NITH SYMBOL CLABL>D. 
ALIGNS -ADDRESS FOR 
SYMBOL TABLE ENTRY! 
SAVES AND DISPLAYS ADDRESS. 


PRINTS THE THO HI HEN DIGITS 
OF OPENED ADDRESS 

PRINTS OUT 2 LOW HES BIGITS 
OF THE OPENED ADDRESS. 
RETURNS TO CALLING CODE. 


FORDS *. Rk." & 25" 
STORES FOR PRINTING 
SKIFS TG PRINT CHAR 


HEN DIGITS. 
LOADS 16 FOR BASE. 
STORES FOR Pais Slade 


CLEARS HI 2 DIGI 
LORDS OUTPUT Bue. ADDRESS. 


Ty 
=] 
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Hb2508 * FOLLOWING CONVERTS BS'TE TO HEN WITH LEADING ZEROS 
R 4 * 

ewG2 FEDS D7? 36 CONVRT STA B IOQBUFF+i SETS BYTE FOR SECOND DIGIT. 
QG253 FED? BD FFé4 JSR BINASC CONVERTS TO ASCII DIGITS, 
@0254 FEDA 96 36 LDA A ITOQBUFF+L TESTS BOTH PIGITS CONVTD 
B@@255 FEDC 26 G8 BNE PNTBUF SKIPS IF BOTH DIGITS NOT #8. 
GH256 FEDE 96 35 LOR A IOBUFF MOYES LOW DIGIT. 

G@257 FEE@ 9 36 STA A IOQBUFF +41 

HaL5E FEES 86 su LOA A #F°R HIGH DIGIT GETS A "A". 

O@259 FEEF 97 ss STA A IOBUFFF 


paz6a * 
@0261 FEES CE @835 PNTBUF LDX  #IOBUFF LOADS ADDR OF HEN DIGITS. 


HH262 FEES OF 4141 STN OUTBUF STORES AS OLITPUT BUFFER. 
8263 FEEB CE Base LDN #IQBUFF+1 STORES ADDR. OF 

Ha264 FEEE DF 8A STN QUTEND END OF DIGITS PRINTED 
ag265 FEFA@ BD FRSD JSR OUTSTR PRINTS QUT BYTES. 

HHe66 FEFS 39 RTS RETURNS TQ CALLING PROGRAM 
G26? * 

HALES + 

G269 * 

ae : FOLLOWING INPUTS A 16 BIT NUMBER INTO THE BA REG. 
ao27 * 

og2°2 FEF4 BR FCeE INFNUMN JSR EDITIN INPUTS A STRING OF CIGITS, 
Ab27S FEFF DE 24 LON SCNPTR LOADS ADDR OF FIRST DIGIT. 
ag2r4 FEFS 8p 2P BSR ASCBIN CONVERTS TQ BINARS IN BA. 
08275 FEFB 39 RTS RETURNS TO CALLER. 

ala a <4 sad 

Neg? * 

Ga2°S FEFC Si 47 ENIT CMP A #F°G TESTS IF AN EXIT ¢E> COMMD. 
GO279 FEFE 2F iE BEQ GOLOCN SKIPS TO THE "GO" COMMAND 
Heesa Free 2c 18 BGE OPNLOC SKIFS FOR NEXT COMMD TEST. 
Hb2381 FFAS S31 INS CLEARS .UP THE STACK. 

Hass=s FFAS 31 INS 

HH283 Fat 3a TS INDEN GETS STACK POINTER 
O9284 FFAS E& as LOA B SN LORDS RETURN RODRESS. 
8828S FFAr AG 6 LOR A GN 

Hbess FFaS 8a ad SUB AR #1 SUB 1 FROM RETURN RODR 
Ob287 FFOB C2 aa SBC B #8 

Hgess FFOO EF as STAB Sus RESTORES ADDR. TO BRKPT 
HO289 FFOF AF 6 STA A G6uN LOCATION. 

Hafz90 FF11 SB RTI RETURNS FROM BREAKPOINT. 
HG291 * 

Ha292 a 

BO293 FFi2 Si 4F OPNLOC CMP RAR #70 TESTS FOR AN "OO" COMMAND 
HO294 FF1id 2E or BGT SETSTK SKIPS IF AN. "R™, "§S*" ETE. 
Hu295 FFI6 SD DC BSR. INPNUM LOADS A 16 BIT NUMBER 
ou296 FFAS DF 4a OPNLC1 STA B PCYAL STORES NEW OPENED 

O29" FFLA 97 44 STA A PCYAL+1 LOCATION ADPRESS. 

BOL9IS FFLC 26 SA: BRA DSPAD1 DISPLAYS CONTENTS OF LOC 
B8299 * 

Haseaa * 

BL FFLE 31 GOLOCN INS CLEANS UP THE STACK., 

& Ae FFAF & INS 

OuSa3 FF20 6E aa JMP ON JUMPS TQ USERS PROGRAM 
HasSad ¥ 

HazO5 * ENO OF DEBLIGGER 

BOSE * 


a 


eS 


PAGE 


GazaS 
AAzZa9 


HAS13 
bas14 
@as1s 
HASLE 
Hasl? 
HHS1E 
GAS19 
BASLE 
89T21 
GHUS22 
GHL23 
HasSo4 
Has25 
HASSE 
baser 
HASSE 
G8s239 
HASSA 


GASSF 
HUSSE 
BASSI 
Haste 
OO341 
HaSdsS 
GALS 
adasd4 
GUS4IS 
HASdE 
G34 7 
HaS4s 
GOS49 
HOSSH 
Hasst 
DSSS 


44 
Bed 


UTILITY PROGRAMS 


ASCII TO BINARS' CONVERSION, 


THE ASCII TO BINARY ROUTINE CONVERTS FROM AN ASCII 
NUMBER STRING POINTED TO &r S TQ AN UNSIGNED 16 BIT 
BINARY NUMBER IN’ BH CACC B HAS THE HI BYTE. ACC A HAS 
THE LO BYTES. THE ASCII STRING IS TERMINATED BY A NON 
HEXADECIMNAL CHARACTER. UPON ENITING. THE INDEN REGISTER 
WILL POINT TQ THE NEST CHARACTER AFTER THE NUMBER 
STRING. THE BASE OF THE NUMBER STRING IS PASSED TO 
THE ROUTINE IN ARA CARA IS THE ARITHMETIC REGESTER A 
LOCATED IN BYTES 8& AND Br OF LOW NENORYS, IF THE 
ROUTINE IS ENTERED WITH A KNOWN BASE. PUT THE BASE 
CBETHEEN 2 ANG 162 IN ARA ANG ENTER THE ROUTINE AT 
THE ENTRY POINT ENTRE. 


CONVERSION FORMULA:  . 

* ASCII NUMBBER STRING N04], N03]. S02].NSC1]1 IN 

‘BASE 2 

* BINARS NUMBER = 

* NOFA IFS TSEND SI AYT PENCE IEYTLFS CL I*YTO . OR 

* BINARY NUMBER = 

* CCCHRSENL STEP +N TSI IEP ENO ST OFS HNC 1] 

WHERE tT IS THE EXPONENT GPERATOR. 

* 8 IS A CHARACTER & Y IS THE BASE. 

x 

* 

* “ 

‘ ALGORITHM: 

*ASCBIN: FORM THE BASE IN ARA BASED ON THE FIRST CHAR 
* OF THE NUMBER STRING: INCREMENT CHAR. PTR. IN &i 
*ENTR2: NUMBER CIN BAD GETS &i 

*NSTCHR: IF THE CURRENT CHAR. POINTED TQ BY 8 IS NOT A 
* BIGIT THEN EXIT ELSE INCREMT CHARACTER PTR IN INDEN; 
CONVERT BIGIT TO BINARY: 

NUMBER GETS NUMBER * BASE: 

NUMBER GETS NUMBER + OIGIT; 

GO TO OPERATE ON THE NEXT DIGIT CNNTCHR); 
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HOS54 FF2Z2 AB HG ASCBIN LDA A BN GETS CHR TO FORM BASE. 
pesss FFed SI 2& CMP A ORF”, TESTS FOR DECML STRNG 

I UgiG FF26 2D 86 BLT OCT SKIPS IF: BASE 8 ¢*), 

AIRS? FFZS 2E 9 BGT HEN SKIPS IF BASE 16: 

BAS5S8 FFZA 86 BA LOA A #18 LORDS BASE 18 FOR CONYERSN. 
BSS9 FF2ect 20 Oe ERA ASCL SKIPS TO INC. | TENT POINTR 
HaS6a FFSE 86 a8 OCT LOA A #S LOAPS BASE 8 FOR CONVERSION. 
Hasel FFSG ue ASCL INS INCREMENT PTR TO NENT CHAR 
GS62 FFSL 28 G2 ERA ASCS SKIPS TQ SAVE BASE 

Gases FFSs Se 16 HEN LPR A #16 LOAOS BASE 16 FOR CONYERN. 
HaS6¢ FFs 9F ar ASCS STAR ARG SAVES BASE IN BASE#. 

QG265 * 

HaS66 i 

BASE? FFS? SF ENTR2 CLR 8 NUMBER GETS 8 

HUSES FFSS 37 Pan = CLOW NUMBER ON STACK). 
GBGL69 FFSS Dr G6 STA BB RRI CLEARS HI OF BASE. 

Hasra FPSB AG GA NSTCHR LDA A GS GETS CHAR TO CONVERT. 

GAS?1 FFSD Gs INS INC TQ NEXT CHARACTER. 
Hasre FFSE SL su CHP AO #¥°R TESTS FOR END-OF-STRING 
Gasrs FFAG 2b SA BLT RENIT EXITS IF END. 

Hass FF42S Sa se SUB A #¥°R FORMS B.C. 0. NUMBER 

Has7o FF4d Si GA CNP A #18 TESTS IF DECINAL DIGIT 
BASF6 FF4#6 20 GA ELT ASES SKIPS IF DECIMAL. 

Gasrr FFIS Sl 16 CNP A #165 TESTS FOR END OF STRING. 
BaSrS FFAA SF 16 BLE RENTIT EXITS IF NOT A HEN DIGIT 
GGL79 FFIC So ar SUB A #F FORNS A HES B.C. 2. BIGIT. 
GHsee FF4E SL 18 CMP A #16 TESTS FOR END-GF-STRING. 

a Jol FRO Ze te BGE RENTT EXITS JF CHAR > “F*, 

Mel? FFS2 SF a8 ASCE STA A PIGIT SAVES DIGIT FOR ABD 

HASSS i 

HHSS4 FFI4 DF ge CNVASC STH THP ' SAVES INDEN REG FOR MULT. 
GSES FFSG se / PUL Ai = RESTORES LO OF "NUMBER". 
Hasse FFIP Sl s BSR NUL T NUMBER GETS NUMBER * BASE 
OHS8F FESS 9B us ADC A BIGIT NUMBER GETS NUMBER + DIGIT. 
HOSSe FFSE C2 aa ACC B #O 

HHES9 FFID 36 Psi Ht = SAVES LO OF NUMBER 

HHSSH FFSE DE oe LDN TMP RESTORES STRING POINTER 
GHS91 FFsée@ 2a Ds BRA NSTCHR GOES TQ CONYRT NENT CHAR 
GBGL92.FFES Se REXTT FUL A= RESTORES "NUMBER" IN BA 
BGSSS FF6S 39 RTS RETURNS TO CALLING PROGRAN 
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BASIS 
HASIE 
GA29/7 
arr ge 
Hwa 
Hodge 
G4 G4 
Hoda? 
HO4das 
Hod a4 
Ha4qes 
HadGEe 
HA ar 
Aeqags 
Gaqas 
Ha416 
Ho4id 
vaqgile 
GHdi{s 
Heid 1 4 
HO415 
HALE 
Godt? 
Hea4di1e 
GH419 
nodZ 
HAd421 
Haq 
AHA? 
ki ed 
Aade5 
Ha426 
Ade? 
paqee 
Hbd429 
HH4ISO 
H4s1 
BAGS. 
HFSS 
Hb4s4 
HH435 
HAGE 
Hb4dsP 
HAFSS 
HHFS9 
HAddH 
OA447 
add > 
Had43 
HA444 
6445 
HAddE 
H044- 
HA4F4S 


é 4 
Reps: Sat 
90451 
naqs2 


Gag 


FFe4 


FF66 3S 


FFEr 
FF6S 
FFeA 
FFEC 
FFE 
FFF8 


FFF2 
FF?4 
FFF 
FFF? 
FFF9 
FFA 
FFFC 
FF?D 


FFFF 
FFS4 
FFS2 


FFS3 3 
FFS5 3 


FFS6 
FFS88 
FFSA 


9 FFSC § 


FFSE 
FF38 


FFSL 2 


PDS- 


o, 32, D7,9,9) ~ 


VSA 


MEEK KRHEK EEK ERE KEE RKRER RE RHRERESE 


BINI LOS ARB 


Sd 
* 


x 


BINSTR LON TMP 


SINASC STH TMP 


BINARY TO ASCII 


THE BINARY TQ ASCII CONVERSION ROUTINE CONVERTS 
A 16 BIT BINARY NUMNEER IN THE BA REGISTR. (REG B & REG AD 
TO A STRING OF ASCII DIGITS. THE ASCII STRING CRN BE IN 
ANS BEASE FROM BASE 2 THROUGH BASE’ 41. THE YALUE OF THE 
BASE IS LOCATED IN THE ARITHMETIC PSEUBDOQ-REGISTER ARB 
CARB IS LOOCATED IN BS'TE ARS CLOC 4] AND ARS CLOC SJ). 
WHEN THE ROUTINE IS ENTEREC. THE POINTER TO THE OUTPUT 
LOCATION IS PASSED IN THE INDES REG. WHEN THE ROUTINE 
ENITS. THE INDES POINTS TQ THE LAST DIGIT IN THE STRING 
PLUS ONE. 

CONVERSION IS DONE BY THE METHOD OF REPERTED 
DIVISION. THE LOW ORDER DIGIT IS FORMED FIRST. THE 
DIGITS ARE THEN PLACED ON THE STRACK UNTIL CONVERSION IS 
COMPLETED. THE DIGITS ARE THEN POPPED OFF THE STACK 
AND PLACED IN THE QUTPUT STRING. THE TOP-OF-STACK IS 
INITIALIZED TO ALL ONES TO TELL WHEN ALL THE DIGITS 
HAVE BEEN POPPED OFF THE STACK. AFTER THE CIVISION: THE 
DIGIT <THE REMAINDER OF THE DIVISION QPERATIOND 
IS LOCATED IN THE AR & PART OF ARA CBYTE 7). WHEN 
THE QUOTIENT OF THE DIVISION IS & THEN THE CONVERSION 
IS COMPLEATED. 


SAVES QUTPUT POINTER 


ee “SETS THE TOP-OF-STACK TO 
TSK /ALL ONES TO TELL END OF 


CLR GX “CHAR STRING CLAST CHAR IS 
CoM BN . @PUT ON STRACK FIRST). 
RESTORES DEVISOR (BASE). 

STN FARA 

BSR DIVIDE * QUOTIENT IM BA GETS THE 
REMAINDER OF # TO BE CONVERTED; REMAINDER IN ARA GETS 
THE LOW ORCER DIGIT. 


STA A TMPL SAYES A OF &R. 

LOA A ARG LOAL DIGIT CREMAINDERS. 

PsH AH = STACK DIGIT ¢REVERSE ORDER). G 
LDR A TMP1 RESTORES A OOF BA 

ii = “TESTS IF QUOTIENT IS = @ 
BNE BIN1 “CSIGNIFYING THAT 

im ee “THE CONYERRSION 

BNE BIN1 “IS DONE). 


RESTORES QUTPUT POINTER. 


BINS PUL A UNSTACK A BIGIT. 

(isi Ano= TESTS IF NEG CEND?3. 

BPL BING SKIFS IF ft DIGIT. 

RTS EXITS FROM SUBROUTINE. 
BIN4 CMF A #9 TESTS IF.RESULT IS HES. 

BLE BINS SKIPS IF DIGIT NOT HEX. 

ADD A #? FORMS HEX VALUE OF DIGIT. 
BINS ADDR #F°O FORMS DECINAL CHARARETER 
STR A BS OUTPUTS CHARACTER 

INN POINTS TQ NEXT CHARACTER. 

BRA BINS GOES BACK FOR NEXT OIGIT 


ce 
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AB454 * MULTIPLY ROUTINE 

Ha4S5 7 

ee +d THE MULTIPLS' ROUTINE MULTIPLIES THO 16 BIT BINARY' 
Ar * NUMBERS TOGETHER TQ PRODUCE A 16 BIT RESULT. THE BA 

aude * REGISTERS AND ARA CBYTES & & 73 REGISTER ARE USED 

hie : THE CONTENTS OF ARA ARE UNCHANGED UPON PROGRAM ENIT. 

Gadel * 

HO4EL * 

Ha462 * BA GETS BR * ARA 

HO4ES *« 

Ga4é4 * 

HO4ES * MULTIPLYING IS ACCOMPLISHED 8% REPEATED ADRITIONS 

Hb466 * QF ONE OF THE OPERATORS (OPERATOR ARA) INTQ THE RESULT. 

HO46- * THE RESULT STARTS QUT WITH A ZERO WALUE AND IS SHIFTED 

HG46s * OVER ONE RAFTER ERCH ADDITION. THE HIGHEST QRDER VALUE 

HOES * IS ABCED IN FIRST AND TTHEN. GOING TQ THE RIGHT. 

Abd 78 * CTHUS SHIFTING THE ANSWER LEFT ONE TO BRING IN THE NENT 

Gad PL * RIGHTMOST CIGIT® GETTING THE NENT LOWERMOST SIGNIFICANT 

Od P2 * DIGIT. THE NEST RIGHTMOST BIT OF THE OTHER OPERAND 

Had PS * ¢THE ONE ORIGINALLY IN BRAY IS TESTED. ANO IF ONE: 

Had 74 * ANOTHER ADDITION TAKES PLACE. THIS IS REPEATED UNTIL 

bad 75 * THE FINAL SUM IS FORMED. 

HbAFE x 

Sr tara ‘k 

Ha4 73 4 

Hod?9 * MULTIPLY ALGORITHM: 

He4so * 

G4S1 *MULT: STACK BA: BA GETS & SET COUNT VALUE TO 16; 

C ge *MULI: SHIFT BA LEFT i; 

aadas * SHIFT LEFT ORIG 6A VALUE ON STACK INTO CARRY: 

ARASH * IF CARRRY = & THEN GO TO NUL2 

HO4SS * .- BA GETS BR + ARA; 

HA4S6 *MULS: DECREMENT COUNT; 

Hod se * IF COUNT # & THEN GO TO MULI ELSE ENIT. 

648s . 

a8489 ** 

88498 * 

HOdS1 - 

HOdI92 FFIS 36 NULT . FSH A = PUTS THE ORIGINAL CONTENTS 

GH49S FFS4 sr Pong = OF BA ONTO THE STACK. 

G@8494 FFOS ss 18 LDR A #16 LOADS COUNT VALUE 

HOS FES? 36 Psi A = ONTQ THE STACK. 

HG496 FFIS 4F CLR A - BR GETS ZEROED. 

GH4I9" FFIS SF CLR B 

HO498 FFIA 3a TSN SET INDEX TO STACK. 

BA4I99 FFSB 48 MULL ASL A - SHIFT LEFT 6A. 

8asea FFSC 59 ROL 6 

BUSeL FFSD 6&8 U2 ASL 2,N SHIFTS ORIG. BA OPERAND 

G@@5G2 FFSF 69 G1 ROL 1s ONE LEFT INTO CARRY. 

HOSGS FFAL 24 a4 BCC MUL 2 SKIPS ADDING IF CARRY = &. 

GO5G4 FFAS 9B ar ADD A ARG BR GETS BA + ARA 

HOSS FFAS DO ae ADC BARI 

ee FFA? 6A 88 NUL = DEC GN TESTS IF DONE. 

{ ” FFAS 26 Fe BNE MUL GOES BACK IF NOT DONE. 

or FFAB si INS CLEANS UP THE STACK. 

Hess FFAC s INS 

88510 FFAD si INS 


@O511 FFAE 39 RTS EXITS ROUTINE. 
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GHASLS 
Hesi4 


b - 
OWE 


pOSLS 
Aas19 
bas2fe 
aased 
Has522 
gas23 
naso4 
ao525 
PASE 
Aas27 
HASSLE 
HAS29 
pasa 
Aa5s4 
aass2 
HOSZ2 
pao5s4 
Aa525 
Ha5zé 
aas3r 
HASTE 
BASZ9 
, 48 
Eee4 1 
BaS42 
HAS4ds 
po544 
Be545 
BAS4E 
ABER 
pas5o 
BasS4 
passe 
aasss 
Baess 
BOSSE 
geass? 
9asss 
aas59 
AasEa 
Aa5é6L 
pase2 
aasez 
paSe4 


re, 

BASES 
gass9 
gas7e 
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FFAF 
FFBA 
FFBL 
FFBS 
FFBS 


FERS 


FFBS 


FFB9 
FFEB 
FFED 
FFBF 
FFCO 
FFC2 


FFC4 2 


FFCE 
FFCS 
FFCA 
FFCC 
FFCE 
FFDA 


FFD ¢ 


OyeCLt)D'G Gb) 


y S| 40475 TT a 


DIVIDE ROUTINE 


THE DIVIDE SUBROUTINE DIVIDES THE 16 BIT NUMBER 
IN THE BA REGESTERS Bs THE 16 BIT NUMBER IN THE PSEUDO 
REGESTER ARA (LOCATED IN BYTES & & 72. UPON ENITING: 
BA WILL CONTAIN THE QUOTIENT OF THE OIVISION AND ARA 
WILL CONTAIN THE REWAINDER. THE CIVIDEND BR IS DIVIDED 
BY THE DIVISOR ARA CI. E. BAWARA 


DIVIDE ALGORITHM: 


DIVIDE: Nz.4 GETS BA (BRA IS PUT ON THE STACK): 

N1.2 GETS THE 16 BIT ARA WALUE CARA PUT ON THE STACK: 
COUNT GETS 1 + THE NUMBER QF NONSIGNIFICANT BITS IN 
THE CIVISOR CLEFT JUSTIFY X1.2 TO FIRST 1 BIT, COUNT 
GETS 1 + THE # OF LEADING ZEROS IN Xi. 2] CCOUNT WILL BE 
FROM 1 TO 4F]i 

BA GETS 3.4 CRESTORES 8A]; 

Noad GETS 8 CINITIALIZES THE QUOTIENTI; 

*DIVS: BA GETS BA - S41. 2: 
* IF THERE WAS A BORROW CI. E€. OIVIDEND IN BR < DIVISOR 
* IN Ni.2 CARAS] THEN 8A GETS BA + Ni.2 CORIGINAL BA 
* VALUE RESTORED] & CARRS CLEARED ELSE CARRS IS SET; 
*DIVS: NS.4 CQUQTIENT] GETS CARRY LEFT SHIFTED IN; 


+ 


* Nt.2 CPIVISOR] GETS SHIFTED RIGHT ONE PLACE WITH ZERO 
* FILLED IN FROM THE LEFT SIDE; 
# DECRENENT COUNT; 
is EXIT IF CONE ELSE’ Go To DI¥s; 
* 
* 
* : 
DIVIDE PSH A - LOADS DIVIDEND INTO Ns. 4. 
PSH B 
LDR A RR1I LOADS DIVISOR FROM ARR. 
LDA B RRB 
PSHE = PUTS DIVISOQR INTO Xi.2 
ped i SET .UP SPACE FOR COUNT. 
TSS INDEX GETS STACK POINTER. 
LDA A #1 INITIALIZE COUNT. 
ist Lis TESTS FOR HI CIVISR BIT ON. 
BMI DI¥2 SKIPS IF ON. 
DIV1 INC A = COUNTS LEADING ZEROS. 
ASL 2% LEFT JUSTIFIES X1,2. 
ROL 1% 
BHI DIV2 SKIPS IF NO LEADING ZERO 
CMP A #1? TESTS FOR ALL ZERO BIVISOR 
BNE DIV1 GOES BACK IF BITS LEFT. 
DI¥V2 STR A. &S SETS COUNTER. . 
LOR B 3.x BA GETS ORIGINAL 
LOR A 4. DIVIDEND VALUE, 
CLR Su 8 CLEARS N2.4 FOR FORMATION 


CLR dN OF THE QUOTIENT. 


es 


ome 
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HA572 
‘gle Fs 
reall?” 4 
HOS FS 
Has" Se 
base? 
HAS ’Ss 
Hos rs 
Hasse 
HASS1 
HOSS2 
HOHSSS 
HaS84 
ASS 
GAaSSé 
Hass 7 
HOSS 
BASSI 
GG598 
HOSI1 
AHS92 
HaSIS 
HaSI4 
H8SIS 
BOSSE 
8OS9 7 
PP ags 
K U29 
Aueud 


BOER | 


HOaea2 
OHEGS 
Hae 
AGEOS 
He6ee 
Gaear 
TOTAL 


( 


¢ | 
: 
B12 ° PPS-¥3A 


FFD4 
FFDE 
FFDS 
FFDA 
FFDC 


FFE & 
FFDF 3 


FFEL 
FFES 
FFE4 


PREG ¢ 


i 


¢ 


AA a2 
E2 ot 
24 a7 


FFES 6¢ 


FFE ¢ 


PREG zt 


FFEE 
FFFA 
FFF2 


FFFS 3 


FFF4 
FFFS 
FFF6 
FFFF 


FFFS 
FFFH 
FFF 
FFFE 


ERRORS G8oa8 


fog Gy 


8104 
FEdF 
H189 
FCaB 


DIY 


& 


END 


SUB 
SBC 
BCC 
ADD 
ARC 
CLO 
BRA 
SEC 
ROL 
ROL 
LSR 
ROR 
DEC 
BNE 
STR B 
STH A 
INS 

INS 

INS 

PUL B 
PUL FA 
RTS 


nDDbD DD 


FDB 
FDB 
FOB 
FDB 


OF FDS 


END 


ARB 


STORES 


$0104 
$FEAF 
£0188 
$FCR 


START OF DIVIDE LOOP. 


SKIP IF DIVIDEND < DIVYISOR 


RESTORES DI¥YIGEND IN BR. 


CLEARS THE CARRY. 

SKIPS WITH CARRS CLEAR. 
SETS CARRY TO Z.. 

SHIFT CARRY INTO 
QUOTIENT No. 4 

SHIFTS DEYISOR N1,2 
RIGHT ONE. 

DECREMENTS COUNTER 

GOES BACK IF NOT DONE. 
STORES REMAINDER IN ARR. 


CLEANS UP THE STACK. 


QUOTIENT IN EA. 
EXITS ROUTINE 


INTERRUPT REQUEST VECTOR. 
SOFTHARE INT. VECTOR ADDR 
NIN-MASKABLE-INT. YECT. 
RESTART VECTOR ADDRESS. 


SOURCE LISTING. 


PAGE ood} 7 
reraysyay bs 
eaaR2 (, 
\ic 88 9 
besid " 
aaaas 
aaGgae 
aaaa? 
aaaag 
aaeag 
a) :) 34) 
aaa14 
aag1e2 
HOLS 
BeG14 
g0015 
aaa16 
BOHOL? 
AAG818 
aa019 
aaaza 
AAGSL 
GBA22 
aga22 
aaaed 
aaaes 
Baez 
aaa? 
A749 
my po 
aeare 8000 
aaaT4 aaa2 
Haas? ened 
aaazs aaad 
aaasd B03 
aaas5 gaa 
aaasE aa06 
BOAR? gOa7 
agers aGa9 
ApaTS BaGR 
aaada 8080 
BO841 Gage 
eaad? agit 
AGGAS aa14 
aaa44 G016 
g0045 881A 
aaad6 ae1e 
aand? @B1E 
aeea4ds 8828 
B8a49 nase 
aga58 BaD4 
Baa51 Ba265 
aaas2 aa2A 
GRASS gaze 
A _S4 @azE 
aaOSS Baza 
Bea56 gaz2 
a0057 ga35 
Haa58 8048. 


NAM POS-VSA 
OPT 0. NOG 


PROGRAMMED BY ERIC JAMESON 


COPYRIGHT 1976 SPHERE- CORPORATION 
794 SQ. S@@ tM. 5 BOUNTIFUL, UTAH 84018 


SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION. 
DISTRIBUTION AND USE OF THE PDS SOFTWARE. 

NQ COPIES MAY BE NADE OR DISTRIBUTED WITHOUT THE 
HRITTEN PERMISSION OF SPHERE CORP. 


THE PROGRAM DEVELOPMENT SYSTEM (PDS Y3SAD. IS_A SET OF 
FROGRANS RESIDING ON ERASABLE PROGRAMMABLE READ ONL’ 
MEMORY HICH ALLOW EVEN THE SMALLEST USER TO USE HIS 
SPHERE SYSTEM AS A COMPLETE COMPUTER SYSTEM FOR THE 
DEVELOPMENT OF COMPUTER PROGRANS. . 

‘TOWARD THIS END. THE 4+ PDS EPROMS CONTAIN A CURSOR 
BASED EDITOR. A MINI-ASSEMBLER,: AND -THE SPHERE DEBUGGING 


AID (SDA, AS WELL AS A SET OF. UTILITY ROUTINES TO 00 16 


BIT MULTIPLY AND DIVIDE, ASCII-TO=BINARY. AND 
BINARY-TO-ASCII ROUTINES 


MEMORY MAP 


TMP EQ #08 
THPL EU #82 
ARB EQu #4 16 BIT ACC. PSEUDO REG B. 


ARS E@U FO4 
AR2 Eau FOS 
ARA = ERU #06 
ARI EQu #06 
RRO EQu #87 
DIGIT EaQu FOS 
QUTEND EQU #5R 
BUFADR EQ FOC 
BUFEND Evil FOE 
OQUTBUF EQ $11 
SRCADR EQU #14 
OSTADR EQu #16 
ENDMEM EGU $17 
CSRPTR EQu #10 
BUFPTR EQu #1E 
BUFFLO EQU $29 


-HI BYTE OF ARB. 
-LO BYTE .OF ARB. 
: 16 BIY ARITH PSEUDO REG A. 
/whI BYTE OF ARR. 
_ LO BYTE OF ARA. 
*. BYTE USED BY" ASCBIN FOR TMP. 
- END OF. OUTPUT BUFFER TEXT. 
START OF 1.70. BUFFER (PTR? 
PTR. “TO END OF IQ BUFFR. 
START -0F GUTPUT- BUFFER. 
SOURCE FOR TEST MOVES. . 
DEST. ADDR.” FOR. TEXT MOVE. 
EAST. ADDRES OF-REAL MEMORY. 
PTR TO ‘CURSER ON SCREEN. 
TEMP PTR USED BY OUTSTR. 
PTR TO END OF -LOW EDIT TXT. 


BUFFHI EQu #22 “PTR TO START OF HI TENT. 


SCNPTR E@u 24 
SRCASM EQU © $26 
ONDYAL EQU — $27 


“PTR. TQ BUFFRO TXT START. 
PTR TQ RASSMBLR SOURCE CODE. 
HAS RSSMBLR OPERND VALUE. 


Bid 


SYMVAL EQU $20 YALUE PUT IN ASSM. SYMTBL. 


BRKSAY EQU = $2E~ 
BRKADR EQU » $30. > 
EDIT -ERU | #32 
- IOBUFF EQU | $35 
PCVAL EQU $48 


TEMP SAYE FOR 8RKPT ‘DATA. 
’RBDDRESS OF BREAKPOINT. 
@ IF EDITOR IS NOT RUNNING. 
I-0 BUFFER FOR DEBUGGER 
PROGRAM COUNTER FOR ASSM. 
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aaae4 ; , INITIALIZATION 

en065 * 

¢ <Sé , * 

Rede? * 

a0a68 ; * THE INITIALIZATION ROUTINES SET UP THE INITIAL VALUES 
aaasa * UPON SYSTEM RESET. | 

aea78 * 

aaar4 * 

paar? FCA ORG  $FC@a 

BOG73 FOAM SE B1SF RESTRT LDS #$1FF SETS STACK POINTER 

agard FCAT 2a ' tse MOVES STK PTR TO INDEX REG 
Gaa75 FCO4 DF 26 STX  SRCASM SETS ASSEMBLR OUTPUT PTR 
gaarEe FORE DF ac STX | BUFADR INIT INPUT BUFFR ADDR 
paar7? FCOS 86 AP LOA A #8P INHTLZ. KEYBOARD PIA. 
gears FCBA BF FaaL STA A $F aad 

aGa79 FC@D CE GFFF LDX  #$FFF LAST LOCATN OF MEMORY. 
gease FCLA DF aE ST | BUFEND INIT END-OF-EDIT BUFFR. 
eaaSL FCI2 DF 4A STX  ENDNEM INIT END-OF-MEM ADDR. 
aaase # 

aba82 * 

agasd # 

aaass r 

aaasEe ‘k 

aaG97 COMMAND LANGUAGE 

GAGES * 

aaas9 # THIS EXECUTIVE ACCEPTS COMMANDS FROM THE KEYBOARD TO 
Beaoa * DETERMINE WHAT UTILITY IS TO BE RUN. INVALID COMMANDS 
e794 * WILL SPACE THE CURSOR DOWN ONE LINE. DO NOT SPACE OFF THE 
Bes? * BOTTOM OF THE SCREEN 

BBa92 ik 

Baao4 * 

gaa9s FCid 80 iC ENEC BSR HOME CSRPTR IS HOMED. 

gaase FOLGE Sb 20 BSE CLEAR CLEARS SCREEN 

aaa97 FCIS BD FDIS EXEC1 JSR CRLF NEW LINE. 

aaeaas FOIB BD FESC ISR INPCHR GETS & DISPLAYS CHR 

G@a99 FCLE $1 O1 CMP A #01 TESTS IF ASSEMBLY COMMD. 
B81AB FCZA 26 BF BNE  EXEC2 SKIPS IF OTHER COMMAND. 
88181 FC22 BD FDAL JSR ASMBLR JUMPS TO ASSEMBL PRROGRM 
ga1@2 FC25 81 85 EXECS CMP A #05 TESTS IF CONTRL °E’. 

@8103 FC27 26 o2 BNE EXECS SKIPS IF NOT EDIT CMD 
88164 FC29 SD 35 BSP EDITOR JUMPS TO EDIT TEXT. 

68105 FC2B 81 84 EXEC? CNP A #¢04 TESTS FFOR CONTRL “D*. 
GA1G6 FCLD 26 £9 BNE = EXEC LOOPS BACK IF NOT DEBUG 


88107" FC2F 7E FESF JMP DEBUG JUMPS TO DEBUGGER. 
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88169 
88118 


66117 
08118 
66119 
88126 
68121 


H8122 
08124 
88125 
H8126 
84127 
88128 
68129 
86130 
G6131 
HALS2 
GG1s3 
68154 
86135 
HB1SE 
& 37 
b81 38 
BO139 
68148 
66141 
80142 
68143 
86144 
66145 
08146 
66147 
88148 
66149 
88150 
6@151 
HO152 
86153 
80154 
88155 
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THE EDITOR 


THE EDITOR ALLOWS INPUT FROM THE KES'BOARD INTO A 
BUFFER MEMORY. INPUT IS DISPLAYED ON THE SCREEN. WHEN 
IT IS TYPED IN» THE SCREEN TEXT CAN THEN BE EDITED BY USE 
OF THE CURSOR. WHEN THE SCREEN IS FULL OR EDITING I5 
FINISHED, THE DATA IS SCROLLED OFF THE SCREEN INTO THE 
EDIT BUFFER. WHEN TEXT IS SCROLLED OFF THE TOP OF THE 
SCREEN. IT IS STORED FROM THE BUFFER ADDRESS POINTER 
CBUFADR> TO THE LOM BUFFER POINTER (BUFFLO). B8UFFLO 
POINTS TO THE END OF TEXT + ONE ¢I.£. IT POINTS TQ THE 
FIRST UNUSED BYTE. WHEN IT IS SCROLLED OFF THE BOTTOM 
OF THE SCREEN. IT IS STORED IN THE TOP OF THE EDIT BUFFER. 
THE TEXT GOES FRROM THE HIGH BUFFER POINTER (8UFFHI> TO 
THE END OF BUFFER POINTER CBUFEND>. BUFFHI POINTS TO 
THE END OF TEXT - ONE ¢I.E. IT POINTS TO THE LAST UNUSED 
BYTE IN THE BUFFER». WHEN THE TEST IS SCROLLED UP 
OFF THE TOP OF THE SCREEN. TENT IS TAKEN FROM THE HIGH 
RARER OF THE EDIT BUFFER AND DISPLAYED ON THE LAST LINE OF 
THE SCREEN. WHEN TEXT IS SCROLLED DOWN OFF THE BOTTEM. 
TEST. IF ANY EXISTS. IS MOWED FROM THE LOW EDIT BUFFER 
AREA TQ THE TOP LINE OF THE SCREEN. 


ee BUFFLO~ BUFFHIy acta 


LITIN|E| |BJUJF IF IE IRip DIFITIA |e 


POINTERS USED" 


CSRPTR POSITION OF CHARACTERS INSERTED ON THE SCREEN. 
SCNPTR POSITION OF START OF EDITED TEXT ON SCREEN. 
BUFRADR START OF TEXT BUFFER IN MAIN MEMORY’. 

BUFEND END OF TENT BUFFER IN MAIN MEMORY‘. 

BUFFLO END OF TEXT SCROLLED OFF TOP OF SCREEN. 

BUFFHI START OF TEXT SCROLED OFF BOTTOM OF SCREEN. 
BUFLEN NOT CURRENTLY’ USED. 


EDITOR COMMANDS 


“UP ARROW" MOYES CURSOR UP ONE LINE; CSRPTR GETS 
CSRPTR-S2; CALL NDRFLO. 


"DOWN ARROW" MOYES CURSOR DOWN ONE LINE: CSRPTR GETS 
CSRPTR+S2; CALL OYRFLO. , 


“RIGHT ARRON" MOVES CURSOR ONE POSITION RIGHT; CSRPTR 
GETS CSRPTR+1; CALL OYRFLO 
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00167 
p41 68 
& 89 
oad Fa 
0171 
HLF 2 
A172 
HOLT 4 
Aa175 
BALE 
BG177 
oaL?S 
80179 
ap41s8 
60184 
HOLa2 
66182 
0184 
aa185 
8186 
0197 
po18e 
68189 
BAL90 
80194 


68201 
HeLoS 
88283 
Ba2h4 
68285 
BG206 
66207 
Ba2H8 
6289 
88218 
G@211 
88212 
6@213 
G0214 
@@215 
88216 
@0217 
88218 
e139 
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“LEFT ARROW" MOYES CURSOR ONE POSITION LEFT; CSRPTR 
GETS CSRPTR-1; CALL NDRFLO. 


“CONTROL & LEFT ARROW CON KEYBOARD)" LEFT JUSTIFY CURSOR: 
CSRPTR GETS CSRPTR TRUNCATED; CALL NDRFLO FOR SCNLOC CHK. 


“PUTCHR" QUTPUTS CHARACTER: CSRPTR GETS 
CSRPTR+1: GOES TQ OYRFLO. 


“ENDCHR" TERMINATION CHAR: CLEAR EDIT FLAG: 
EXIT THE EDITOR. 


“HOME" HOMES CURSOR POINTER; CSRPTR GETS E898; NDRFLO. 
"CLEAR" CSRPTR TQ END OF THE SCREEN GETS SPACES. 


"CTRL I" INSERT A LINE AT THE LAST LINE ON THE SCREEN; 
CALL OYR1I (SCROLLS UP ONE LINED; CSRPTR GETS E1E8. 


“CTRL DBD" DELETE LAST LINE: SCROLL DOWN CUNDR2); 
CSRPTR GETS E1E@. 


OVERFLOW CHECKS IF SCROLL UP IS NEEDED; IF IT IS: IT 
SCROLLS UP AND MOYES DATA TO & FROM THE BUFFERS. 


OVRFLO: IF CSRPTR < E208 THEN RETURN: IF EDIT IS ON THEN 
OVR1: BUFFLO+ GETS SCNPTR TO °C.R. 73 

DSTADR GETS CSRPTR GETS E1E8 (LAST LINE ON SCREEN): 

IF EDIT IS ON AND BUFFHI <¢ BUFEND THEN MOVE THE TEXT 
FROM BUFFHI TQ “°C. R. * TO THE LAST LINE. 


UNDERFLOW CHECKS IF SCROLL DOWN IS NEEDED AND MOVES 
DATA TO AND FROM THE BUFFERS. CURSER HAD BEEN 
MOVED OFF THE TOP OF THE SCREEN AND IS NOW PUT AT THE 
HOME POSITION ON THE SCREEN 


NDRFLO: IF CSRPTR > DFFF THEN RETURN (GO TQ OVRFLOD; 
IF EDIT FLAG IS ON THEN MOVE LAST LINE TO BUFFHI 
ON DOWN: SCRLONs CSRPTR GETS E888; MOVE LINE FROM 
BUFFLO TO FIRST LINE ON THE CRT. 


NOTE: DON’T SCROLL OFF SCREEN IN EXEC UNTIL AFTER 
THE EDITOR HAS BEEN RUN. 


NOTE: EVERY LINE MUST HAYE A C.R. ON IT. 


~—— 
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HH222 FCS2 CE EBae HONE LDX #$EH00 LOAPS HOME POSITION. 

00223 FCSS DOF 1c STN CSRPTR STORES HONE IN CURSOR PTR 
er FCS? 39 7 RTS RETURNS TO CALLER 

& 25 

A226 * | 

@G227 FCSS C6 6A CLEAR LDA B ##68 LOADS BLANK ¢C.R. >. 

8b2L22E FCSA CE E2ne LOX #FELO0 LOADS END-OF-SCREEN PTR. 
88229 FCSD 89 CLEARI DEN DECRENENTS BLANKING PTR. 
88226 FCSE EF ae STA B 8X BLANKS LOCATION. 

6@231 Fede 9c 1C CPX CSRPTR TESTS IF DONE. 

OH23S2 FCd2 26 F9 BNE. CLEAR BRANCHES BACK IF NOT DONE. 
O@233 FCd4 39 RTS RETURNS. 

HASS4 * 

H@235 * 

HO2S6 * 

HG237 * GETCHR INPUTS A CHARACTER INTO ACC A NITHOUT 
pie : MOVING THE CURSOR, AND BLINKS THE CURSOR. 
Hped6h FC45 DE 1c GETCHR LDN CSRPTR LOADS CRT CURSOR POSITION. 
H24d1 FCd? 6s 88 CoM 8 COMNPLINENT ¢CFLASH POSITION®> 
bG24d2 FC49 CE 2eFea LDN #9968 LOADS BLINK COUNT YALUE. 
66243 FC4C 89 GETI DEN COUNT GETS COLNT-4. 

HGe4d4d FCdD SF Fs BER GETCHR RESETS CTR HHEN TIMED QUT. 
B@245 FCHF 7D Fead TST FFL TESTS IF A CHAR TYPED IN. 
HbS4e FCSS 2A FS BPL GET BRANCH IF CHAR NOT ENTERED 
66247" FCS4 DE ic LOX CSRPTR LOADS CURSOR POSITION 
Hb24e FCSE AS 8a LOR A aN TESTS IF BLINKED ¢SOLID). 
@@249 FCSS 2A Be BPL GET2 SKIPS IF NOT BLINKED 

6 S@ FCSA 6S 8a CON aN CLEARS THE CHARACTER. 
Ge251 FCsSC B6& Faeaa GETZ LDA A FF ee LORDS A HITH CHAR. 

96252 FCSF 38 RTS _ RETURNS TO CALLER. 

66253 * 

Bb254 * 

66255 * 

88256 * 

88257 * EDITOR IS THE MAIN ENTRY POINT FOR EDITING. 
88258 * 

66259 FC6e DE ac EBITOR LON BUFADR BUFFLO GETS THE 

88268 FC6E DF 2A STX BUFFLO VALUE OF BUFADR. 

68261 FCé64 DE GE LOX BLIFEND BUFFHI GETS THE 

O8262 FCE6E DF 2e STS BUFFHI YALUE OF SLFEND 

68263 FCé6és SP C8 REEPIT BSR HOME ENTRY POINT FOR 

HH264 FCEAR SP CC BSR CLEAR RE-EDITING TEXT. 

@26S5 FCéC 9F S2 EDITRE STA AR EDIT TURNS ON EDIT MODE . 

H8266 FCSE DE 1c EDITIN LOX CSRPTR SETS SCNPTR TO CSRPTR. 
66267 FC?78 DF 24 STN SCNPTR 

HOL6E * 

68269 * 

002°7a FCFP2 SD D1 EDRERD BSR GETCHR *® GETS CSRPTR & A GETS CHR. 
66271 FC’4 81 1B ENDCHR CMP A #318 TESTS FOR RN "ESC" CHAR. 
00272 FC’PE 26 O4 BNE EDL SKIPS IF NOT EDIT END 
6273 FCrS 7F 88s2 CLR EDIT TURNS OFFF EDIT FLAG. 
08274 FC?B 39 RTS EXITS THE EDITOR. 

@ 75 FC?7C 8b G2 ED1 BSR INSERT EDITS CHARACTER. 

bee76 FCPE 28 F2 BRA EDREAD GOES FOR NEXT CHARACTER. 
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are * FOLLOWING IS THE MAIN EDITOR EXECUTION LOOP 
aa2se x 

BFS * 

E82 * 

au293 x 

g0284 FCS@ 81 89 INSERT CMP A ##09 TESTS FOR A CONTROL “I*. 
88285 FC82 2D 16 BLT DELETE SKIPS TO DELETE COMMD. 
@8286 FCS4 2E a2 BGT CR SKIPS FOR NEXT TEST. 

aa287 FCS8é 20 78 BRA —sOWR4 SCROLLS UP ONE LINE. 

BOZES * 

A289 * 

88290 FOSS 81 8D CR CMP A #00 TESTS FOR CARRIAGE RETURN 
@8291 FCSA 2D AG BLT HONE SKIPS IF HOME CSR CONMD 
B8292 FCSC 2E a2 BGT  RTCSR GOES TQ NEXT COMND TEST. 
88293 FCSE 36 68 LOA A #68 LOADS INTERNAL C.R. YALUE 
pa294 * 

aa295 * 

G0296 FCI 81 12 RTCSR CHP A #$412 TESTS FOR RIGHT ARRON. 
80297 FC92 2D 2A BLT  SUB32 SKIPS IF AN "UP ARROW". 
QO298 FC94 2E a8 BGT LFTCSR SKIPS IF A "LEFT ARROW". 
@8299 FC96 DE 10 =RTARRO LDX = CSRPTR~—s LORDS:_- CURSOR POINTER. 
88208 FC9S 20 1F BRA = PUTCHL == STORES & INCREMENTS CSR. 
aaz84 * 

paza2 * 

@0283 FC9A 8D 3F DELETE BSR  UNDR2 ~— SCROLLS DOWN 4 LINE. 

g82H4 FCI 28 6A BRA —OYR2 CSRPTR GETS E1E@ (LAST LIND. 
ao285 * 

BO286 x 

€ 97 FC9E 91 14 LFTCSR CMP A #$14 TESTS IF "LEFT ARRON". 
gesas FCAG 2D 26 BELT  ADD32 SKIPS IF "DOWN ARRON". 
@9209 FCA2 2E 83 BGT  CLER | SKIPS FOR NEXT TEST. 

80210 FCA 89 DEX SUB. 1 FROM CSRPTR. 

e031 FCAS 20 13 BRA = PUTCH2 ~—s STORES CURSER POINTER. 
@@313 FCA? $1 1F CLER CMP A #$4F TESTS FOR CTRL BACK ARROW. 
@0214 FCA 2D 8D BLT CLEAR GOES TO CLEAR SCREEN 
@0315 FCAB 27 62 BEQ  LFTJST MOYES CSR TO LEFT OF SCREEN. 
aO316 * 

@0317 * ALL OTHER CHARACTERS FALL THRU TO PUTCHR 

a0318 * 
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G32 

@Gs21 
BOS22 
@ 23 
Ges2 

8G225 
BHS26 
68327 
BASLE 
B8S29 
HOSS0 
BASS1 
HOSS2 
G@SSS 
G8SS4 


6336 
GGSS" 
HOS38 
HSS9 
G8340 
BASIL 


G8343 
bbs44 
@° "45 
hod & 
80347 


BaS49 
8258 
BOSSL 
88352 
BS5z 
68354 
BASSS 
68356 
88357" 
8353 
GASS9 
66368 


G88 


FCRD 
FCRF 
FCB1 
FCBS 
FCBS 
FCB? 
FCB 
FCBA 


FCEC « 


FCBE 
Fcce 
FCC2 
FCCS 
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FCC4 26 


FCCE 2 


FCCS 


FCcr é 


FCCB 
Fece 
FCCE 


FCDG 
FCDS 
FCDS 
FCD? 
FCD9 
FCDE 
FCDE 


* PUTCHR DISPLAS'S A CHARACTER ON THE CRT DISPLAY AND 
* INCRENENTS THE CURSER POINTER AS WELL AS CHECKING 
: AND HANDLING CARRIAGE RETURNS. 
* 
* 
PUTCHR LDX CSRPTR LOADS OLD CSRPTR 
CMP A ##8D TESTS FOR EXTERNAL C. R. 
BEQ CRLF1 SKIPS TO DO ACR. L.F. 
STR A &X DISPLAYS CHAR ON SCREEN. 
CHP A ##68 TESTS FOR INTERNAL C. R. 
CRLF1I BEQ CRLF SKIPS FOR CR. LF. 
PUTCH1 INS INCREMENTS CSRPTR. 
PUTCH2 STN CSRPTR SAYES NEH CSRPTR. 


BRA NDRFLO TESTS FOR O¥YRFLO & UNDRFLO. 


SUBS2 LDN CSRPTR LOADS CURRENT CRSR POSITION 


LDA B #32 LOADS LOOP COUNT. 
SUBS2A DEN DECRIMENTS CSRPTR 
DEC B - DECRIMENTS LOOP COUNTR 
BNE SUBS2A SKIPS BACK IF NOT DONE. 
ERA ADD2 SKIPS TQ CHECK UNDRFLO 
ADDS2 LDA B #s2 LOADS LOOP COUNTER. 
RAO&DS2ZA INS INCRE. CSRPTR IN INGEN. 
DEC B - DECRIMENTS LOOP COUNTER. 


BNE ADDS2A SKIPS BACK IF NOT DONE. 
ADD2 = STN CSRPTR = SAVES CSRPTR. 


* NDRFLO CUNDERFLOW) CHECKS FOR THE CURSOR GOING OFF THE 
* TOP OF THE SCREEN. THE INDEX REG. CONTAINS THE CURSOR 
* POINTER WHEN THE ROUTINE IS ENTERED. 

* 


* 
Ee@aG@ NDRFLO CPx #$E0008 TESTS IF CSRPTR >= DFFF 


BE 
22 


ee 
82 
6D 


BGE OVRFLO SKIPS IF CSRPTR GREATER. 
LDR B EDIT TESTS IF EDITOR IS ON. 

BEQ UNDR2 SKIP TQ EXIT IF EDITOR OFF. 
BSR MOYES MOYES LAST LINE TQ BUFFHI. 


FD?S UNDR2 JSR SCRLON MOVES ALL LINES DOWN ONE. 


SA 


BSR MOVES MOYES BUFFLO TQ TOP OF CRT. 


—_— 
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GAI62 
BASES 
{ 64 
HSE 
68366 


GaSe? 


80368 
HASES 
6a37@ 
HASF1L 
8AS72 
HASTE 
Aasr4 
VBS? 5 
HA37E 
HAS??? 
G@O378 
8HSr9 
b8as8a 
HASS1 
@@382 
BASES 
bH384 
Hoses 
GAS86 
HASSE? 
Gases 
e° ~s9 
Gen 98 
HASIL 
GHOL92 
BASIS 
BO394 


BOS9E 
40397 
GOS98 
88399 
88408 
60401 
H84a2 
BG40s 
ba404 
68465 


aaa 


FCEA 


FCES 2 


FCES 
FCE? 


FCES 37 


FCEB 
FCED 
FCEF 
FCF1 
FCFS 
FCFS 
FCF? 


FCFS 


FCFA 37 


FCFC 
FCFE 
Fae 
FD@2 
Foad 
FOGG 
FDas 
FDR 
FDeD 


FDGF 
FDi4 
FDIS 
FD15 


FD16 


FD18 2 


FREE ED 


I 


OVERFLOM CHECKS FOR SCROLLING UP (CURSOR IS OFF 
* THE BOTTON OF THE SCREEN); INDEX CONTAINS THE CURSOR 
* POINTER UPON ENTRY 

* 


OVRFLO CPX #$E290 TESTS AND EXITS IF 


BNI OVREST CURSOR ON SCREEN. 

BSR OYR1 DOES OVR1 CHECKING 
LOA B EDIT TESTS IF EDIT IS OW. 
BEQ OVREXT EXITS IF IT IS OFF. 
LDN BUFFHI LOADS HI TEXT POINTR. 
CPX BUFEND TESTS IF PTRS NOT EQu. 
BEW OVREST EXITS IF NO TEXT. 

BSR MOVEIA MOYES CHRS TO LAST LINE. 
LDN SRCADR RESETS NEW BUFFHI 

STS BUFFHI LOCATION. 

RTS EXITS BACK TO EDIT. 


OYVR1 DOES ACTUAL SCROLLING UP. 


LDR B EDIT TESTS IF EDIT iS ON. 

BEQ OVRIA SKIPS IF EDIT OFF. 

LDX BUFFLO LOADS TEXT PTR LON. 

STS DSTROR DESTINATION OF TEXT MOVE. 
LOX SCNPTR SQURCE FOR MOVE. 

BSR NOVEL MOVES LINI TQ BUFFFLO. 
STS BUFFLO  SAYES NEW BUFFLO PTR. 
BSR SCRLUP SCROLLS SCREEN UP 1. 
LDX #$E1EG CURSOR GETS PUT ON 

STX CSRPTR LAST LINE. 

STS DSTRODR INIT DEST FOR NEXT MOVE. 


FOLLOWING MOVE THE CURSOR. \ 


LDA B CSRPTR+1 LORDS LO BYTE OF PTR. 

AND B ##E TRUNCATES TO LEFT OF LINE. 
STR B CSRPTR+1 SAVES L. J. ED PTR. 

RTS RETURNS TO EDITOR. 


BSR ADDS2 LINE FEED. 
BRA LFTJST CARRIAGE RETURN. 
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68415 
HO416 
66417 
€841s 
G6419 
8H428 
66421 


818 


FDA 
FDIC 
FDIE 
FDO 
FD22 


2 FD24 
2 FD25 


FDS? 
FD29 


5 FOSA 


FD2C 


FD2ZE 2 


FDS 


3B FDS 


68454 
88455 


FDSS < 


FDSS 
FOS? 


" FOSS 


FOSA 


9 FDSC 


FD3E 
FD408 
FD441 


s FD43 


FD45 
FD47 
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THE CRT. 


EEEKREEREEE 


MOYES LDN 
STS 

LDX 

CPS 

BEQ 

DEX 

MY¥31 CPx 
BEQ 

DEN 

LDR 

CNP 

BNE 

- INN 
MN¥Ys2  STX 
BRA 


* 

* 

* 

* 

* 

* 

* 

*x 

*K 

* 

* 

* 

MOVE LDX 

MOYELA INN 

MOYEL LOA 
STS 
LDX 
STA 
INS 
STX 
CMP 


BNE 
MOYVENT RTS 


MOVE INSTRUCTIONS MOYE FROM ONE BUFFER AREA TO 
ANOTHER BUFFER ARER. 


MOVES CALCULATES THE SOURCE ADGRESS OF THE DATR IN 
BUFFLO CIF IT EXISTS) FOR MOYING TO THE FIRST LINE ON 


MOVE 1 IS THEN ENTERED TQ DO THE MOYING 


SCNPTR 
DSTROR 
BUFFLO 
BUFADR 
MNOVENT 


BUFADR 
NYsS2 
BON 
B ##60 
NY¥S1 


BUFFLO 
MOYEL 


NOVEL 


IN THE INDEN REG. » 


DSTRDR 
B ##68 
MOVE 


CSRPTR GETS EGGG CHOME). 
SETS MOVE ADDRESS. 

LOADS LO BUFFR ADDR. 

TESTS IF DATA STRING. 
EXITS IF EMPTY. 

MOVES BACK FROM BLANK. 
TESTS IF SROADR = BSUFFADR. 
MOVES IF START OF LINE 
NEXT LOWER CHAR. 

GETS SOURCE CHAR FOR TEST. 
TESTS FOR “C..k. * 

SKIPS BACK UNTIL "C.R. “ 
POINTS BACK TO FIRST CHAR. 
SAYES LQ ADDRESS. 

NOYES DATA. 


NOVEL MOYES A SET OF CHARACTERS FROM EITHER THE TOP 
LINE OF THE SCREEN TO BUFFLO OR FROM BUFFHI TO THE 
BOTTOM LINE OF THE SCREEN. THE SOURCE ADDRESS IS PASSED 
THE DESTINATION ADDRESS IN DSTADR. 
AND THE MOVE IS TERMINATED BY A "C.R." IN THE LINE OF 
TEXT BEING MOVED. 


LOADS SQURCE ADDRESS INTO 8. E 
POINTS TO NEXT SOURCE CHAR 
LOADS SOURCE CHARACTER. 
SAYES THE SOURCE POINTER. 
LOROS DESTINATION ADDRESS. 
STORES CHAR. IN DESTINATION. 
NEXT DESTINATION ADDRESS 
SAVES DESTINATION PTR 

TESTS IF MOYE FINSHED (CR). 
SKIPS BACK IF NOT DONE. 
RETURNS TQ CALLER. 
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& 58 
BESS 
08468 
8a4et 
G8462 
GE46S 
66464 
GO465 
00466 
e646, 
68469 
GadE9 
6@647@ 
Had PL 
68472 
Badr s 
66474 
Ba4FS 
66476 
8e4 7? 
08478 
Bag 79 
68486 
GH4S1 
C0482 


— 


Ha4S4 
68485 
BH48E 
68487 
BH4es 
86499 
88498 
BG491 
8H492 
G8493 
BA494 


G11 


FO48 
FO4A 
FD4B6 
FD4C 


FD4E & 


FD4F 


FDS1 26 


FOSS 
FDSS 


FDS? & 


FOSS 


FDSA 33 


FDS8 


FDSD Zé 


FDSF 


FDEG 
FD63 
FD65 


FDe, & 


FD6E 


FD6B 26 


FDED 
FD&F 


FOre $ 


KEEREEKHEEEKEEEE 


inl & 


G9 
4A) 


SCROLLING. 
DURING 


BSR 
CLR 
PSH 
LDA 
INN 
CMP 
BNE 
LDN 
STA 
DEX 
STN 
PUL 
CMP 
BNE 
RTS 


THE MOVE 


Dm BoD 


MOYES SUBROUTINE 


THE MOVES SUBROUTINE MOVES THE LAST LINE ON THE 
SCREEN TO THE HIGH AREA OF THE BUFFER (BUFFHI>® DURING 
THE TEXT IS TEMPORARILY STORED ON THE STACK 
THE MOVE IS TERMIINATED BY A "C.R. ". 
THE TEXT IS STORED AT BUFFHI ON DOWN. 


& GETS ADDR OF LAST LINE. 
SETS TERMINATION FOR 
POPPING 

LORDS SOURCE CHAR 

POINTS TO NENT CHAR. 
TESTS IF LINE fU."6.& * 
MOVED TO STACK. 

INIT. DESTINATION. 
STORES CHAR. 

POINTS TO NENT LOCATION. 
UPDATES BUFFER PTR. 

GETS NEST CHAR. 

TESTS IF ALL CHRS STORED 
SKIPS BACK IF NOT STORED 
RETURNS TO CALLER. 


SCROLLUP MOYES ALL LINES UP 4. & CLEARS LAST LINE. 


LDN 
LDA 
STR 
INS 
CPX 
BNE 
STN 
JSR 
RTS 


SETS CRT HOME POSITION. 
GETS CHAR FROM NEXT LINE. 
STORES CHAR ON PREY. LINE. 
POINTS TO NEXT LINE. 

TESTS IF MOVE DONE. 

GOES BACK IF NOT DONE. 
SETS CSRPTR TQ LAST LINE. 
CLEARS LAST LINE. 

EXITS. 
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& 99 
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Ba5o4 
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pasa? 
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G851E 
88514 
BGS15 
66516 
Ha51 7° 
8@518 
& 19 
6ers26 
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GHSLE 
88524 
88525 
68526 
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88529 


G12 


FD?s 
FRF6é 
FD?S 
FDA 
FOrc 
FOrD 


FDSe : 


FDS2 
FDS4 
FOSS 
FDS? 
FDSA 
FDSC 


FD8D 
FDSF 
FOS1 
FOSS 
FO96 
FOSS 
FD9A 
FOSC 


FOSD ; 


FDSF 
FDA 


PDS-¥3A 


* SCRLDOQHN MOYES ALL LINES DOWN ONE AND 
* CLEARS THE TOP LINE ON THE SCREEN. 
* ; ; 


CE E1DF SCRLDN LON #$E1DF INITIALIZES THE POINTER 
Eé ee SCRO1 LOR B ON LOADS DATA TO BE MOVED. 
E? 28 STA B $28. 8 MOVES DATA DOWN ONE LINE. 
DF 1C STX CSRPTR = SAVES CURSOR. 
a3 DEN POINTS TQ NEXT BYTE 
SC DFFF CPX #$DFFFO © 60TESTS IF MOVE FINISHED 
26 F4 BNE SCRD1 SKIPS BACK IF NOT DONE 
Cé 56a LPR B #68 LORDS BLANK TQ CLEAR LINE. 
8s SCRD2 INN POINTS TO NENT CHARACTER. 
Er 88 STR B G&S CLEARS BY'TE ON LINE 1. 
Sc EGiF CPX #$EH1F TESTS IF LINE 1 CLEARED 
26 FS BNE SCRO2 SKIPS BACK IF NOT CLERRED 
$3 RTS RETURNS. 
* QUTSTRING PRINTS QUT THE STRING BETWEEN THE 
“‘ OUTBUF POINTER AND THE BUFEND POINTER. 
DE 11 QUTSTR LON QUTBUF BUFPTR GETS START OF TENT. 
Aé be OTL LOR A ES LOADS CHAR TO BE PLT OUT 
DF 1E ST BUFPTR SAVES SOURCE POINTER 
BO FCAD JSR PUTCHR PRINTS CHARACTER. 
DE 1E LOX BUFPTR RESTORES POINTER. 
3C OA CPN QUTEND TESTS FOR END-OF-TEXT. 
2r Gs BEQ ouT2 EXITS IF END OF TENT. 
as INS INCRE. PTR TO NEXT CHAR 
26 Fa BRA OUTIL GOES BACK FOR NEXT CHAR. 
33 QUT2 RTS EXITS ROUTINE. 
G1 NOP UNUSED LOCATION 
* 
* END OF EDITOR PROGRAM. 
* 
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Ga538 
Basso 
eas4a 
8a541 
gas4e 
Hass 
#a544 
Hasds 
88546 
8o54 7 
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HH5S49 
easse 
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THE MNINI-ASSEMBLER 


THE MINI-ASSEMBLER IS A FINED-FIELD OQNE INSTRUCTION 
PER LINE 2 PASS ASSEMBLER. THE MINI-RASSSEMBLER FORMAT 
IS DESCRIBED ON PAGES 9-2 AND 9-3 OF THE SPHERE 
OPERATORS REFERENCE MANUAL. 

THE THQ PASSES ARE REQUIRED TO FORM THE LABEL 
ADDRESSES. THE SECOND PASS EQUATES THE ADDRESS FOR 
LABLES REFRENCED BEFORE THES ARE DEFINED IN THE PROGRAN. 


ON ENTRY’: 
SRCASM = ADDRESS OF SOURCE TEST TO BE ASSEMBLED. 
BUFFLO = ADDRESSED OF OBJECT CODE PROCUCED. 


ON EXIT: 
PCYAL (PROGRAM COUNTER YALUE® = LAST LOCATION OF 
THE ASSEMBLED OBJECT PROGRAM 


KFREEKEKREKEHEFEKEEKREREREKE ERK E 


ALGORITHM: 


*ASMBLR: SET PASS COUNT TQ ZERO; SET PCYAL TO DSTASM: 
*ASMIA: OPERAND YALUE FORMED IN "“ONDYAL": 

* A GETS CHAR IN S& COPERAND TYPE): S GETS N+P; 

* IF CHAR N6& IS A "@" THEN ONDVAL GETS VALUE FROM SYMBOL 
* TABLE ELSE ONDYAL GETS YALUE FROM ASCBIN CONVERSION: 
*SYNBL: EQUATES SYMBOL CPC YALUE IS THE “ " SYMBOL 
*(LABELJ) Tl) A LABEL VALUE: 

* SYMYAL GETS PCYAL: 

* IF xX€1) IS AN “=" THEN SYNVAL GETS ONDYAL; 

* IF X¢1) IS NOT A "=" OR A SPACE THEN IF SECOND PASS THEN 
* EXIT ELSE START SECOND PASS; 

* LABEL ENTRY’ IN SS'HBOL TABLE GETS SYNYAL: 

*LDOP: PUT OPERATION CODE INTO THE OBJECT CQDE: 

* CONVERT NC2)-NC2) INTO BINARY 

* SAYE PCYAL; 

*P.C GETS PC. #2 

*OPRND: FORM OQPERAND IN OBJECT CODE: 

FORM ONDYAL INTO PROPER SIZE BASED ON CODE IN X¢6); 
STORE NEW OPERAND VALUE IN MEMORY: 

P.6. GEIS F.C. +1 OF 2: 

GET NEXT LINE OF SOURCE; 

GO TO ASMN1A: 


HERE EEE 
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@ASE1 FDAL °F 8884 ASMELR CLR ARS INIT. PASS CTR TQ FRST PASS. > 
€ 82 FDA DE 28 ASN1 LDN BUFFLQ SETS PC CNTR TO START OF 
GISS FDAG DF 40 STN PCVAL OBJECT CODE. 

BG584 FDAS DE 26 LON SRCASM LOADS ADDR FOR FIRST LINE 
BGS8S FCAR DF @2 ASMLA STN TMPL SAVES ADDR OF CURRENT LINE. 
G@8586 FRAC AG 88 LDA A 8s LORDS SYMBOL ¢LABEL). 
BaSsr FORE Es 87 LDA B Fs LOADS OPERAND TYPE CODE 
GG588 FORS C1 48 CNP BO ##°B IF @® LOADS DATA IN SYMBOL 
G@HS89 FDBS 27° 6B BER INDADR ACDRESS. GOES TO SYMBL. 
G@65968 FOR4 as INS SETS INDEX TQ START OF 
@G591 FDBS as INK OPERAND NUMBER 

G@G592 FDBS a8 INS 

HASSE FDEP Os INN 

HG594 FRES as INS 

BaSSS FORS O83 INN 

G@8596 FDBA a8 INS 

GG59" FDBB BD FF22 JSR ASCBIN CONVRTS # TO BINARY IN B-A 
@a599 FDBE DF 2A ASMNIB STA B ONDYAL STORES QPERAND VALUE IN 
BASIS FOCA 9? 2B STR A ONDYAL+1 ONDYVAL 

GGé608 ¥ 

Ba6O1 a 

G8602 - 

BH6OS * FOLLOWING FORMS THE YALUE FOR THE LABEL. 

HG604 * 

Ba60S FOCe DE #2 SYMNBL LDS TMP41 LOADS ORIG LINE PTR INTQ X. 
@G606 FOC4# AS oe LDA A aN LOADS SYMBOL (LABEL). 

Po Or FOCE Eé wl LDA B is LOADS LABEL CONTROL CHAR. 
BeohS FRCS DE 48 LOX PCYAL LABEL WALUE GETS PCYAL. 
BH6G9 FOCAR DF 2c STN SYMVAL 

@8616 FOCC C1 se CMP B ##°= = TESTS IF LABL IS EQUATED 
B8611 FOCE 26 86 BNE ASM2 SKIPS IF NOT EQUATED. 
GG612 FOG DE 2A LDS ONDYAL LABEL VALUE ¢(SYNYALS GETS 
@H613 FOD2 DF 2C STN SYMVAL THE OPERAND VALUE. 

86614 FOO4 28 GE BRA ASNS CONTINUES EVALUATION. 
BH615 FODE C1 2h ASMS CMP B #F* TESTS FOR END-OF-PROGRAM 
@0616 FDDS 27 GA BEQ ASMS SKIPS IF SPACE ¢NOT END). 
88617" FORA 7D Bnead Tst ARS TESTS IF SECOND PASS. 
@@618 FORD 27 G1 BEQ ASMA EXITS IF SECOND PASS. 
BH619 FDDF 39 RTS 

@G620 FDEG DF @4 ASN2A STA BARS SETS CTR TO SECOND PASS. 
@8621 FDES 28 Ce BRA ASM1 GOES BACK FOR SECOND PRSS. 
84622 * 

BH6LS * 

88624 * 

BG625 * FOLLOWING PUTS THE LABLE YALUE IN THE SYMBOL TABLE. 
G8626 = 

bb62" FDE4 8D 41 ASMS BSR SYMPTR & GETS SYMNBL TABL ENTRY ADR. E 
08628 FDE6 96 2C LDA RA SYMYAL STORES THE LABEL 

G@8629 FOES Ar 8a STA A BN ADDRESS ¢SYMYAL) INTO THE 
O663@ FDER 96 2D LDA A SYMVAL+1 SYMBOL TABEL. 


@86S1 FDEC Ar 81 STR A 1% 


615 


FDEE 
FDFO 


ar FDFA 


FDF2 


$9 FOFS 


G8642 
BO64s 
8644 
BHeds 
B6646 
Hae4 > 
Hb648 
HED 
86658 
HH651 
8652 
HHéSS 
eaé6s4 
HGéS5 
HbéS6 
aes? 
HO658 
Besa 
&_ 68 
Bb8661 
oa662 
BASES 
ba6e4 
HA6ES 
8666 
Bo6ET 
8668 
BH669 
acta 
88671 


666sa 
BH6S81 
b@682 
BHESS 
40634 
—E 38s 
eb6s6 
8865 
ae68s 
8 


9 FDFS 
FOF? 2 


FDF9 
FDFC 
FDFE 
FEGA 
FEGL 


FEQ3 
FEBS 
FEG? 
FEBS 
FEGR 
FEED 
FEGF 
FE4 


FE1s 
FELIS 
FEI6 
FE1is 
FELA 
FELC 


FE1D : 


PELF 
FE2 = 
FE2s 

FEDS 


FE27 
FE2S 


FE29 § 


FE2B 
7 FE2D 
FE2F 


PDS-¥SRA 


» 


: ‘ FOLLOWING FORMS THE OPERATION CODE. 


[pop «LOX OTP 
INN 
INN 
INN 
LOA A ON 
CMP A Ht? 
BEQ  OPRND 
JSR ASCBIN 
LOX —— PCY¥AL 
STA A OS 
INK 
STX —- PCYAL 

* 

* 

* 

* 

* 

OPRND LDS — TMP4 
LOA A Oe 
LP¥ = PCVAL 
CMP A #$°E 
BGT = RELTIV 
BEQ = EXTEND 
CMP A HED 
REQ DIRECT 

*« 

* 

* ‘ 

* FOLLOWING GETS THE NEXT LINE 

* 

ASM4 LDS  THP4 

ASM4A INS 
LOA A Os 
CMP A o#S60 
BNE —- ASMA 
INK 
BRA ss ASM4A 


NDADR BSR SYMPTR 
LDN a 
STX ONDY'AL 
BRA SYMBL 

* 

SYMPTR ASL A = 
CLR B = 

LORDX STR A TMP+1 
STA B TNP 
LOX TMP 
RTS 


LOADS ORIG LINE POINTER. 
SETS ® TQ POINT Ta 
THE OP CODE CHARS. 


GETS OP CODE CHAR INTO A. 
TESTS IF OP CODE ENISTS. 
SKIPS IF NONEXISTANT. 
CONVRTS QP CODE TQ BINARY’. 
LOADS POINTR TQ OBJECT CODE. 
STORS OP INTO OBJECT CODE. 
SETS TO NEXT OBJ CODE LOCTN. 
SAVES P.C. POINTER 


FOLLOWING STORES INTO THE OBJECT CODE THE SIZED QPERAND 


LOADS 
LOADS 
LOADS 
TESTS 


SQURCE LINE POINTER. 
OQPERAND SIZE CHAR. 

% WITH OBS CODE PTR. 
LENGTH TPE. 

IF AN "R" OPERAND. 
IF AN “E" SIZE OPRNO 
IF SIZE CHR EXISTS. 
IF "B"COMND EXISTS. 


SKIPS 
SKIPS 
TESTS 
SKIPS 


LORDS START OF LINE IN 
ORDER TO FIND NEXT LINE. 
LOADS CHAR FROM SORCE LINE. 
TESTS FOR A CARRAGE RETURN 
SKIPS BAK UNTIL C.R. FOUND. 
POINTS TO FIRST LINE CHAR. 


GOES BACK TQ ASSM. NENT LINE 


* 
* 
* 
* THE FOLLOWING ARE SUBROUTINES USED BY THE MAIN CODE 
* 
* 
i 


GETS CONTENTS OF 

SYMBOL LOCATION. 

STORES AS OPERAND. 

RETURNS TO FIN LABEL ‘ALUE. 


MULT LABEL BY 2 TQ FORM 
POINTR INTO SYMBOL TABLE. 
LORDS POINTER INTO THE 
SYMBOL TABLE INTO %. 
RETURNS TO CALLER. 
RETURNS. 
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G8699 
GP S91 
& 92 
HGESS 
GG694 
BG695 
B8696 
GB69" 
GG698 
8HE99 
6g7e8a 
8a7 OL 
89782 
BAF AS 
eared 
BaPBS 
Ga786 
ber ar 
Ga7as 


ENTEND 


DIRECT 


* 
RELTIY 


i i 


LDA 
STA 


DT 


bD 


QNDYAL 
BX 


ONDYAL +1 
GX 


PCVAL 
ASM4 


PCVAL 
ONDYAL +1 
PCYAL +1 


GX 
ASN4 


STORES HI BYTE OF OPERAND 
INTO OBJECT CODE. 

INC PC TO POINT TQ NNT WD 
STORES LO BYTE OF OPERAND 
INTO OBJECT CODE. 

INC & SAVE P.C. TO POINT TO 
NEXT BYTE. 

GOES TO WORK ON NEXT LINE 


INCRIMNENT P.C. PTR TQ POINT 
TO NXT BYTE & SAVE P.C. 
LOADS LO BYTE OF OPERAND. 
FORNS RELATIVE OFFSET. 
INSERTS RELATIVE BYTE INTO 
OBJECT CODE. 

GOES TO ASSMBL NENT LINE. 


OF THE ASSEMBLER PROGRAM. 
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Gbrers 
HHae4 
B8835 
BHOSE 
68887 
GHGS 
66889 
G8aga 
GG891 
BOaI2 
GGG9S 
HeS4 
8G895 
BHHSE 
eaag? 
HHHIS 
GG099 
8ea1o8 
66161 
88102 
GG183 
Ho1LG4 
68185 
O16 


GAS 


arta? © 


SS 
00109 
68118 
661141 
88112 
86113 
8114 
40115 
98116 
60117 
80118 
66119 
90120 
68121 
Sb RP 
86123 
00124 
88125 
88126 
80127 
90128 
88129 
88120 
G0131 
OP4 32 
6 33 
68134 
88135 
68136 
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DEBUGGER 


THE DEBUGGER FOR THE PDS SYSTEM WAS DESIGNED TO 
PROVIDE A YERSATILE TOOL FOR USE IN PROGRAN TESTING AND 
DEBUGGING. IT ALLOWS FOR BREAKPOINTS. MINI-ASSEMBLER 
SYMBOL TABLE REFERENCING. STACK MANIPULATION AND 
INPUT IN EITHER HENSADECIMAL, OCTAL OR DECIMAL. 

THE DEBUGGER PRINTS R PROMT CHARACTER “>" ON EVERY NEM 
LINE. AN INSTRUCTION CAN BE TYPED IN WHENEVER THE CURRSOR 
IS BLINKING, EXCEPT WHEN A NUMBER IS BEING TYPED IN 

THE DEBUGGER CALLS THE EPITOR WHENEYES A NUMBER IS TO BE 
INPUT, SO CORRECTIONS CAN BE MADE IF THE WRONG DIGIT Is 
TYPED IN. THE POINTER "PCYRL" POINTS TO THE CURRENTLY’ 
OPENED BYTE LOCATION. THE DEBUGGER OPERATES ON WHATEVER 
BYTE IS POINTED TO Bs PCYAL. FOR FURTHER DETAILS SEE THE 
SECTION ON THE GEBUGGER IN THE OPERATORS REFERENCE MANUAL. 


THE DEBUGGER IS IMPLEMENTED 8% A SMALL ROUTINE TO SET 
UP ENTRY CDEBUG) AND A LARGE ROUTINE WHICH DOES A RANGE 
COMPARE TO FIND THE PROPER COMMAND RAND THEN ENECUTES THE 
COMMAND ¢RUNBUG®. NOTE THAT SINCE COMMANDS ARE 
INTERPRETED BY RANGE. ANY KEY STRUCK WILL PRODUCE 
A COMMAND EXECUTION, SUCH AS A". " BEING INTERPRETED 
AS A "+" COMMAND. 


COMMANDS: 


"CR." LINE - PRINTS ">" OUT ON A NEW LINE 

"" CHANGE - THE SPACE COMND CHANGES CONTENTS FROM ¥ TO 2. 
"+" OPNNST - OPENS NEXT LOCATION. | 

"=" OPNPRE - OPENS PREVIOUS LOCATION 

"B" BRESET - SETS A BREAKPOINT AT THE OPENED LOCATION 

"CO" CLRBRK - CLEARS BRKPOINT. MUST BE DONE SEFORE EXIT. 
ME" ENIT - PERFORM RTI - EXECUTE AT BRKPOINT LOCATION. 

"G" GOLOCN - STARTS EXECUTION AT OPENED LOCATION 

“O" OPNLOC - OPENS LOCATION THAT IS TYPED IN AFTER "0". 
"R" OPNREG - OPENS THE TOP-OF-STACK LOCATION 


“S" SETSTK - SETS THE STACK TO THE OPENED LOCATION 

“T" OPNTBL - OPENS LOCATION IN SYMBOL TRBLE OF NEXT CHR. 
SUBROUTINES: 

INPCHR - INPUTS A CHAR. INTO A AND PRINTS IT. 

INPNUM - INPUTS A NUMBER INTO B-A FROM THE KEYBOARD. 
PNTBYT - PRINTS ACC A AS 2 HEN DIGITS ON THE SCREEN 
PNIDIG - PRINTS B-A AS 4 HEN DIGITS ON THE SCREEN 


NEWLIN - PRINTS A C.R. AND A ">" ON THE SCREEN 
DSPRDR - PRINTS BYTE ADDRESS (XNNXNX) AND BYTE CONTENTS C¥'¥'D 
AS D8XXX VY ON THE SCREEN. 
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GHHLES 
AG139 
6 1a 
Bexrds4 
90142 
G@8143 
68144 
60145 
88146 
66147 
HO14E 
68149 
88158 
861541 
88152 
68153 
86154 
68155 
8O15E 
66157 
HH15S 
88159 
HOL1E8 
66161 
8162 
G8163 
Ho164 
a” °s5 
Bba66 
66167 
68168 
89169 
88173 
68171 
88172 
68173 
89174 
46175 
b817°E 
68177 
b817E 
80179 
80186 
68181 
0182 
08182 
88184 
68185 
88186 
08187 
8818s 
68189 
8P498 
A 34 
88192 
68193 


8 


604 
FE4A 


FE4A 
FE4D 
FE4E 


FE4F 
FESL 
FESS 
FES 
FESS 


FESA 2 


FESC 
FESF 
FEE 


FE6s 


FESS : 
FE6? 2 


FESS 
FE6C 
FEGE 
FE? 


FEF2 
FE?4 
FET6 
FES 
FEFS 


FE? 


FETC : 


FETE 


FES& 
FES2 
FE&4 
FE86 
FESS 


FE8A 


FESC 
FESE 
FES@ 
FE92 
FES4 
FE96 


PDS-V3A 
* 
BD FCBE BGPOP4 
34 POPLIN 
34 
* 
* 
SP 74 DEBUG 
8D 89  PBUGI 
BD FCI6 
DE 4a 
SD 99 
28 FS 
* 
BD FC45 INPCHR 
BD FCAD 
39 
* 
* 
* 
* 
81 26 RUNBUG 
2D ES 
2E a9 
BD FEF4 CHANGE 
DE 48 
AF ag 
20 DB 
* 
* 
81 2D  OPNPRE 
2D O5 
2E a6 
a9 
28 28 
* 
* 
ag OPNNXT 
28 28 
* 
* 
81 43 CLRBRK 
2D BA 
2E 73 
DE 38 
96 2E 
A? aa 
28 1A 
ee 
*" 
Hé 88 = BRKSET 
97 2E 
DF 3a 
86 3F 
A? ao 
20 85 


CNP 
BLT 
BGT 
JSR 
LON 
STA 
BRA 


CMP 
B 


DD 


BB DD 


NEHLIN 
INFCHR 
RTARRO 
PCYAL 
RUNBUG 
DBUGI 


GETCHR 
PUTCHR 


#$” 
BGPOFL 
OPNPRE 
INPNUM 
PCYAL 
& SX 
POPLIN 


#F°— 
OPNNST 
CLRBRK 


DSPADR 


DSPADR 


#F°C 
BRESET 
EXIT 
BRKADR 
BRKSAY 
i X 
DSPRDR 


GX 
BRKSAY 
BRKADR 
#SSF 
@, x 
POPLIN 


MOVES CURSOR UP ONE LINE. 
CLEANS UP STACK FOR 
DISPLAY OF CR. >. 


| 


PRINTS "CR. >". 

READS IN COMMAND. 

INSERT BLANK 

LOADS CURRENTLY OPENED LOC. 
EXECUTES DEBUG COMMAND 
GOES BACK FOR NEXT COMND. 


READ IN CHAR INTO A. 
DISPLAYS CHARACTER. 
RETURNS TO CALLER. 


TESTS FOR SPACE. 

SKIPS iF ff "6. &. *. CLINE. 
SKIPS FOR OTHER CHMND TESTS. 
INPUTS NEH BYTE CONTENTS. 
LOADS OPENED BYTE LOCATION. 
STORES NEW BYTE DATA 

GOES TO INPLIT NEXT COMMAND. 


TESTS FOR A "-" COMMAND. 
SKIPS IF A “+” COMMAND. 
SKIPS TO TEST FOR OTHER CMND 
FORMS PREY. LOCATION ADDR. 
GOES TQ OPEN THE LOCATION. 


FORMS NEXT LOCATION ADDR 
GOES TO OPEN LOCATN BYTE. 


TESTS FOR A "C" COMMAND. 
SKIPS IF A “B" COMMAND 
SKIPS FOR NEXT COMND TEST. 
GETS RDDRESS OF BREAKPOINT. 
LOADS ORIG BYTE CONTENTS. 
RESTORES BYTE DATA. 

GOES TO OPEN THE LOCATION. 


LOADS DATA OF OPNED LOCATN 
SAYES DATA OF OPNED BYTE. 
SAVES ADDR. OF BREAKPOINT. 
LOADS SOFTWARE INTUP COMND. 
SETS AN SHI AT OPNED BYTE. 
GOES TO NEXT LINE FOR COMND. 
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89195 
8 36 
Gera 97 
a8198 
98199 
ga208 
ga2e1 
gaze2 
8203 
Haza4 
ea205 
88206 
ga207 
ga208 
gazes 
ga218 
ga214 
ga212 
GO213 
go2id 
0215 
a8216 
80217 
g8218 
ga219 
gaz2e 
gP°24 
G_22 
@0223 
paze4 
88225 
88226 
90227 
ga22 

ga229 
ga238 
ga234 
Ba232 
88233 
Ba234 
98235 
BO236 
80237 
pa238 
88239 
ga24a 


HOS 


FESS 
FE99 
FESA 
FESB 


FESD 
FESF 


FEAL 2 


FERS 


FER4 ; 


FED2 


* FOLLOWING PRINTS OUT 


PDS-¥3A 
38 OPNREG TSN 
as INK 
88 INK 
20 a9 BRA 
sd 
*x 
81 53  SETSTK CNP A 
2D F? BLT 
2E 13 BGT 
35 TXS 
20 AI BRA 
* 
* 
* 
* 
* 
* 
* 
* 
* 
DF 4@ DSPADR STN 
SD 1B DSPAD1 BSR 
Sp 10 BSR 
» FOSE JSR 
DE 4a LD 
As 3a LDA A 
8D 17 BSR 
39 RTS 
*«K 
* 
8D Ad OPNTBL BSR 
43 ASL A 
SF CLR B 
20 5C BRA 
* 
* 
49  PNTDIG LOA A 
ac BSR 
44 LDA 
as BSR 
RTS 
* 
* 
CE @D3E NEWLIN LDX 
DF 35 ST 
20 1A BRA 
* 
* 
* 
CE 90108 PNTBYT LDX 
DF a4 ST 
SF CLR B 
CE @a3s LDX 


DSPADR 


#F°S 
OPNREG 
OPNTBL 


DEBUG 


PCYAL 
NEWLIN 
PNTDIG 
RTARRO 
PCYAL 
a. * 


PNTBYT 


INPCHR 
OPNLC1 


PCYAL 
PNTBYT 
PCYAL+1 
PNTBS'T 


#FODSE 
IOBUFF 
PNTBUF 


#16 
ARB 


#IOBUFF 


OPENS TOP-OF-STACK. 

PCYAL GETS STACK POINTER. 
(CLEANS UP THE STACK) 
GOES TG DISPLAY THE T-0-5. 


/ 
} 


TESTS FOR AN “S" COMMAND. 
SKIPS IF AN "R" COMMAND 
SKIPS FOR THE "T" COMMAND 
STACK POINTER GETS PCYAL. 
RETURNS TO INPUT COMMAND 


FOLLOWING ARE SUBROUTINES USED BY DEBUGGER. 


FOLLOWING DISPLAYS THE LOCATION ADDR. & CONTENTS. 


SAYES OPENED LOCATION ADDR. 
PRINTS AWC. RK. * AND *>* 
PRINTS OUT “PCYAL" IN HEX. 
PRINTS A SPACE. 

LOADS PTR. TQ OPEND LO. 
LOADS DATA FROM LOCATN 
PRINTS DATA IN HEN FORMAT. 
RETURNS TO INPUT COMMAND 


LOADS AeWITH SYNBOL ¢(LABLD. 
ALIGNS RAODRESS FOR 
SYMBOL TABLE ENTRY’. 
SAYES AND DISPLAYS ADDRESS. 


PRINTS THE TWO HI HEN DIGITS 
OF OPENED ADDRESS. 

PRINTS OUT 2 LOW HEX DIGITS 
OF THE OPENED ADDRESS. 
RETURNS TO CALLING CODE. 


LOADS "C.R." & ">" 
STORES FOR PRINTING 
SKIPS TO PRINT CHAR. 


2 HEN DIGITS. 


LOADS 16 FOR BASE. 

STORES FOR CONVERSION. 
CLEARS HI 2 DIGITS. 

LOADS OUTPLIT BUFF RDDRESS 
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88258 
af “S41 
Bede 
GG253 
88254 
G4255 
88256 
60257 
BB258 
68259 
88260 
6261 
GBA262 
O0263 
HaL64 
GG265 
HHZE6 
66267 
Ha268 


G86 


FEDS 
FED,’ 


FEDA s 
FEDC 2 
FEDE s 
FEE@ § 


FEES 
FEE4 


FEES 
FEES 
FEEB 
FEEE 
FEF@ 
FEF S 


272 FEFA 


O73 
aaZrE 
Aa279 
BA2SO 
Ha284 
HAZ 
8282 
H8284 
ga2s5 
HO286 
80287 
B8288 
HG289 
Ha290 
OG291 
HG292 
88293 
ga294 
88295 
H296 
80297 
90293 
98299 
838 
ga204 
@ 32 
asO3 
Has04 
HO285 
80306 
a 


3 FEF? 


FEFS 


5 FEFB 3 


FEFC 
FEFE 
FFG 


FFG2 3 
FFaS 3 


FFad 
FFAS 
FFO? 
FFaS 
FFOB 
FFD 
FFOF 
FF14 


FF12 
FF1id 
FFi6 
FFi8 
FF1A 
FFLC 


PDS-¥3A 


FFLE si 


FFIF 


FF26 6 


BASS 
bb 


08 


* FOLLOWING CONYERTS BYTE TQ HEX WITH LEADING ZEROS. 
* 


CONVRT STA 
JSR 


* 
PNTBUF LDX 
STX 
LDN 
STH 
JSR 
RTS 


FEF 


IOBLUFF +1 
BINASC 
IOBUFF +41 
PNTBUF 
IOQBUFF 
IOQBUFF +1 
#F°U 
IOBUFFF 


DUTT BD D 


#IOBUFF 
OUTBUF 


#IQBUFF +1 


QUTEND 
OUTSTR 


SETS BYTE FOR SECOND DIGIT. 
CONVERTS TO ASCII DIGITS. 
TESTS BOTH DIGITS CONYTD. 
SKIPS IF BOTH DIGITS NOT @. 
MOYES LOW DIGIT. 


HIGH PIGIT GETS A "“B" 


LOADS RODR OF HEN DIGITS. 

STORES AS QUTPUT BUFFER. 
STORES ACDR. OF 

END OF DIGITS PRINTED. 

PRINTS QUT BY'TES. 

RETURNS TO CALLING PROGRAM. 


: FOLLOWING INPUTS A 16 BIT NUMBER INTO THE BA REG. 


INPNUM JSR 
LDS 
BSR 
RTS 

* 

* 

EXIT CNP 
BEQ 
BGE 
INS 
INS 
TSN 
LDA 
LDA 
SUB 
SBC 
STA 
STA 
RTI 

* 

* 

OPNLOC CMP 


OPNLC1 STA 


Cy & 


OLOCN INS 


* 


% * 


EDITIN 
SCNPTR 
ASCBIN 


RO #F°G 
GOLOCN: 
OPNLUC 


DoDD 
tt 
ree 


A #°O 
SETSTK 
INPNUM 

B PCYAL 

A PCYAL+1 
DSPRD1 


BN 
OF DEBUGGER 


INPUTS A OSTRING OF DIGITS. 
LOADS ADDR+ OF FIRST DIGIT. 
CONVERTS TO BINARY IN BA. 
RETURNS TO CALLER. 


TESTS IF AN EXIT CE) COMMD 
SKIPS TQ THE "GO" COMMAND. 
SKIPS FOR NEXT COMMD TEST. 
CLEARS UP THE STACK. 


INDEN GETS STACK POINTER 
LORDS RETURN ADDRESS. 


SUB 1 FROM RETURN ADDR. 


RESTORES ADDR. TQ BRKPT 
LOCATION. 
RETURNS FROM BREAKPOINT. 


TESTS FOR AN "O" COMMAND. 
SKIPS IF AN “R*. “S* ETC 
LOADS A te BIT NUMBER. 
STORES NEW OPENED 
LOCATION ADDRESS. 
DISPLAYS CONTENTS OF LOC. 


CLEANS UP THE STARCK. 
JUMPS TQ USERS PROGRAN. 
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HASHS 
Gasag9 
go th 
Berst 

basLe 
G8sS12 
HS14 
88315 
HOs1E 
HOS17 
HOSLE 
G8s19 
Be Sekt 


Gas25 
BOSSE 
b8s27 
HASSE 
GS29 
BGSS0 


BOSSE 
HH339 
BOS4H 
bas41 
HASd2S 
GOS4= 
HOSd4 
Gas45 
BASIE 
bas4? 
8ASdS 
b8349 
BOSS 
Bassi 
geass. 


PDS-VSA 


UTILITY PROGRAMS 


ASCII TQ BINARY CONVERSION. 


THE ASCII TO BINARY ROUTINE CONVERTS FROM AN ASCII 
NUMBER STRING POINTED TQ BY X§ TQ AN UNSIGNED 16 BIT 
BINARY NUMBER IN BA CACC B HAS THE HI BYTE, ACC A HAS 
THE LO BYTES. THE ASCII STRING IS TERMINATED BY A NON 
HEXADECIMAL CHARACTER. UPON EXITING, THE INDEN REGISTER 
WILL POINT TQ THE NENT CHARACTER AFTER THE NUMBER 
STRING. THE BASE OF THE NUMBER STRING IS PASSED TQ 
THE ROUTINE IN ARA CARA IS THE ARITHMETIC REGESTER A 
LOCATED IN BYTES 86 AND OF OF LOM MEMORY>. IF THE 
ROUTINE IS ENTERED WITH A KNOWN BASE, PUT THE BASE 
CBETHEEN 2 AND 16) IN ARA AND ENTER THE ROUTINE AT 
THE ENTRY POINT ENTRe2. 


CONVERSION FORMULA: 

* ASCII NUMBBER STRING NC4]. X€3I. XC2]. C11] IN 
"BASE Ys 

* BINARY NUMBER = 

ACI IFYTISANO SIE TZAN CS IFYTIFN CAI FY TB OR 
* BINARY NUMBER = 

COCBRYANTS JIFYEN OST I FY FS C2 I #*VtNC1 I 

SWHERE tf IS THE EXPONENT OPERATOR: 

®% IS A CHARACTER & Y IS THE BASE. 


% 


¥ 


EEE ESE 


ALGORITHM: 

*ASCBIN: FORM THE BASE IN ARA BASED ON THE FIRST CHAR. 
* OF THE NUMBER STRING; INCREMENT CHAR. PTR. IN &; 
*ENTR2: NUMBER CIN BAD GETS @; 

*NNTCHR: IF THE CURRENT CHAR. POINTED TQ BY X IS NOT A 
DIGIT THEN EXIT ELSE INCRENT CHARACTER PTR IN INDEX: 
CONVERT DIGIT TO BINARY: 

NUMBER GETS NUMBER * BASE; 

NUMBER GETS NUMBER + OIGIT: 

GQ TO OPERATE ON THE NEXT DIGIT (NNTCHRD: 


EeKHE ERE 
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BOZ54 
B855 
g 56 
Bess? 
BaZ58 
88259 
BOSE 
GAZ64 
BOS62 
BGZ63 
HaSE4 
aaz65 
BASE6 
BOs67 
BaTES 
BHz69 
HOs7e 
HO374 
HASTE 
BA373 
ward 
BB375 
Baz76 
GO7F 
BOs78 
Ga379 
Baz8a 
a "34 
th82 
HA393 
HaZ84 
BG385 
HB386 
GO297 
HBZ88 
gAz89 
Bas9e 


Has 


FFa2 
FF24 
FF26 
FF28 
FF2A 
FF2C 
FFE 
FF3a 
FF24 
FF 
FFS5 


FF? 
FF8 
FF 
FFSB 
FF3D 


FFE § 
FF4a 2 


FFa2 
FF44 
FF46 
FF4S 


FFSA z 


FFAC 
FFAE 


FFSG ; 


FFS2 


FFS4 
FF5S 


POS-3A 


AG 


He 


ASCBIN LDA 
CMP 


NSTCHR LDA 


RAEXNIT PUL 
R 


an UD DBD DTD TD BDDN 


DBD 


DOD BD 


a) 


NUMBER 


ARI 
ON 


TMP 
NNTCHR 


GETS CHR TQ FORM BASE 
TESTS FOR DECML STRNG. 
SKIPS -fF BASE & ¢#). 

SKIPS IF BASE 16. 

LORDS BASE 18 FOR CONVERSN. 
SKIPS TO INC. TENT POINTR. 
LORDS BASE 8 FOR CONVERSION. 
INCREMENT PTR TO NENT CHAR. 
SKIPS Ta SAVE BASE. 

LOADS BASE 16 FOR CONYERN. 
SAVES BASE IN BASE#. 


GETS &. 

(LOW NUMBER ON STACK). 
CLEARS HI OF BASE. 

GETS CHAR TO CONVERT. 

INC TO NEXT CHARACTER. 
TESTS FOR END-OF-STRING. 
EXITS IF END. 

FORMS B.C. D. NUMBER. 
TESTS IF DECIMAL DIGIT. 
SKIPS IF DECIMAL. 

TESTS FOR END OF STRING 
ENITS IF NOT A HEN DIGIT. 
FORNS A HES 8. C.D. DIGIT. 
TESTS FOR END-OF-STRING 
EXITS IF CHAR > "F". 
SAVES DIGIT FOR ADD. 


SAYES INDEN REG FOR MULT. 
RESTORES LO OF "NUMBER". 
NUMBER GETS NUMBER * BASE. 
NUMBER GETS NUMBER + DIGIT. 


SAYES LO OF NUMBER. 
RESTORES STRING POINTER 
GOES TO CONYRT NENT CHAR. 
RESTORES "NUMBER" IN BA. 
RETURNS TO CALLING PROGRAN. 
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GA295 
HEEIE 
80397 
gorge 
&,_ 39 
so4d80 
H0461 
ga4d82 
Ha4da3 
Ho4a4 
Ba405 
H4GE 
na407 
Ha4e3 
andes 
84168 
AG4d41 
Ha4d12 
H8413 
O41 4 
aa4i5 
g0416 
bedi? 
86418 
80419 
an428 
GG421 
aa422 
80423 
G24 
aa4d25 
88426 
90427 
aad28 
g8429 
p40 
GG434 
aO432 
AG432 
Ha4z4 
88435 
AB436 
gB437 
BAdzS 
88439 
98448 
904441 
Had42 
80443 
80444 
88445 
a8446 
00447 
88448 
@ 49 
BeeSO 
90454 
H0452 


Gag 


FFé4 
FF66 
FFE? 


FF&S 6. 


FFEA 
FFEC 
FFEE 
FF? 


FFF2 
FF?4 
FFE 
FFF? 
FFF9 
FF7A 
FFFC 
FF?D 


FFF 
FFS4 
FFS2 


FFS3 : 


FFS5 
FFS6 
FFSS 
FFSA 
FF&C 
FFSE 
FF9a 


FFO4 : 


POS-VSA 


Po Oho tot to Wo 
72,3 mY 


ee, 


sD 
hm 


4D 


* 
* 
* 
* 
* 
* 
* 
* 
* 
we 
* 
* 
* 
Be 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
BE 


BINARY TO ASCII 


THE BINARY TQ ASCII CONVERSION ROUTINE CONVERTS 
A 16 BIT BINARY NUMBER IN THE 8A REGISTR (REG B & REG AD 
TO A STRING OF ASCII DIGITS. THE ASCII STRING CAN BE IN 
ANY BBASE FROM BASE 2 THROUGH BASE 44. THE YALUE OF THE 
BASE IS LOCATED IN THE ARITHMETIC PSEUDO-REGISTER ARB 
CARB IS LOOCATEC IN BYTE ARS CLOC 4] AND AR] CLAC S37). 
WHEN THE ROUTINE IS ENTERED. THE POINTER TO THE OUTPUT 
LOCATION IS PASSEQ IN THE INDEX REG. WHEN THE ROUTINE 
ENITS: THE INDEX POINTS TQ THE LAST DIGIT IN THE STRING 
PLUS ONE. 

. CONVERSION IS CONE Bs THE METHOD OF REPEATED 
DIVISION. THE LOW ORDER DIGIT IS FORMED FIRST. THE 
DIGITS ARE THEN PLACED ON THE STACK UNTIL CONVERSION IS 
COMPLETED. THE DIGITS ARE THEN POPPED OFF THE STACK 
AND PLACED IN THE QUTPUT STRING. THE TOP-OF-STACK IS 
INITIALIZED TO ALL ONES TO TELL WHEN ALL THE DIGITS 
HAYE BEEN POPPED OFF THE STACK. AFTER THE DIVISION: THE 
OIGIT «THE REMAINDER OF THE DI¥YISION QPERATION> 
IS LOCATE® IN THE AR @& PART OF ARA CBYTE 7). WHEN 
THE QUOTIENT OF THE DIVISION IS & THEN THE CONVERSION 
Is COMPLERTED. 


INASC STN TMP SAYES QUTPUT POINTER. 
DES “SETS THE TOP-OF-STACK TQ 
TSX PALL ONES TO TELL END OF 
CLR B.% “CHAR STRING (LAST CHAR IS 
CoM BX “PUT ON STACK FIRST). 
BINI LDN ARB RESTORES DEYISOR (BASE). 
STS ARR 


ESR DIVIDE * QUOTIENT IN BA GETS THE 


* REMAINDER OF # TO BE CONVERTED; REMAINDER IN ARA GETS 
* THE LOW ORCER DIGIT. 
STA A TMPL SAYES A OF BR. 
LDA A ARG LOAD DIGIT CREMAINDER). 
FSH A= STACK DIGIT CREYERSE ORDER). G 
LDA AR TMP1 RESTORES A OF BR. 
ist A * “TESTS IF QUOTIENT IS = @ 
BNE BIN1 “CSIGNIFYING THAT 
isf eB = “THE CONYERRSION 
BNE BIN1 “IS DONE). 
* 
BINSTR LON TMP RESTORES OUTPUT POINTER 
SINS FUL A = UNSTACK A PIGIT. 
ist A = TESTS IF NEG (END?). 
BPL BING SKIPS IF A DIGIT. 
RTS EXITS FROM SUBROUTINE. 
BIN¢ CMP RAR #9 TESTS IF RESULT IS HEX 
BLE BINS SKIPS IF DIGIT NOT HEX. 
ADD A #? FORMS HEX YRLUE OF DIGIT. 
BINS ADD A ##°8 FORMS DECIMAL CHARACTER. 
STR A BS OUTPUTS CHARACTER. 
INS POINTS TO NEXT CHARACTER. 
BRA BINS GOES BACK FOR NEXT DIGIT. 


PAGE 
hG454 
88455 


Hh _ a 
8459 
HO459 
88468 
HO4EL 
HG462 
HA4ES 
6464 
Hb46S 
Hb466 
Had6? 
HH463 
HHFES 
bad 7?e 
HG471 
Gbdre2 
adr Ss 
HO4 74 
bad 7?S 


8a484 
@8485 
86486 
Bode? 
HG48s 
88459 
68498 
HH491 
BG492 
BH49S 
68494 
BOFIS 
66496 
BO495 
86498 
BO499 
easeaa 
bOSH1 
8502 
HOSHS 
68504 
gases 
oasa6 
Gg 3 
6us88 
Baso9 
88510 
88511 


618 


FF93 
FFO4 
FF95 
FFS7 
FF98 
FFS9 
FFSA 
FFSB 
FFOC 
FFD 
FFF 
FFAL 
FFAS 
FFAS 
FFA? 


FFAS : 
FFAB 3 


FFRAC 
FFAD 
FFRE 


POS-Y¥SA 


18 


MULTIPLY ROUTINE 


THE MULTIPLY ROUTINE MULTIPLIES TWO 16 BIT BINARY’ 
NUMBERS TOGETHER TO FRODUCE A 16 BIT RESULT. THE BA 
REGISTERS AND ARA CBYTES & & 7) REGISTER ARE USED. 
THE CONTENTS UF ARR ARE UNCHANGED UPON PROGRAM EXIT. 


BA GETS BR * ARA 


MULTIPLYING IS ACCOMPLISHED BY REPERTED ADBITIONS 
OF ONE OF THE OPERATORS COPERATOR ARAD INTQ THE RESULT 
THE RESULT STARTS OUT WITH A ZERO YALUE AND IS SHIFTED 
OVER ONE RFTER EACH ADDITION. THE HIGHEST ORDER VALUE 
IS ADCED IN FIRST AND TTHEN: GOING TQ THE RIGHT. 
CTHUS SHIFTING THE ANSHER LEFT ONE TQ BRING IN THE NEST 
RIGHTMOST OIGIT® GETTING THE NENT LOWERMOST SIGNIFICANT 
DIGIT. THE NEXT RIGHTMOST BIT OF THE -OTHER OPERAND 
€THE ONE ORIGINALLY IN BR IS TESTED, AND IF ONE: 
ANOTHER ADDITION TAKES PLACE. THIS IS REPEATEC UNTIL 
THE FINAL SUM IS FORMED 


MULTIPLY ALGORITHM: 


*MULT: STACK BRAi BA GETS @& SET COUNT YALUE TO 16: 
*MULi: SHIFT BA LEFT 4; 

* SHIFT LEFT ORIG BA VALUE ON STACK INTO CARRY: 

* IF CARRRS = & THEN GO TO NUL2 

* BRA GETS BA + ARR: 

*MUL2: DECREMENT COUNT; 


HFRERERKEKFRKEKFEEEREKEKRAEEEKFEEE RE 


* IF COUNT # & THEN GO TO MULI ELSE ENIT. 

* 

*K 

* 

* 

MULT PSH A= PUTS THE ORIGINAL CONTENTS 
PSHB - OF BA ONTO THE STACK 
LDA A #16 LOADS COUNT YALUE 
PSH A - ONTO THE STACK. 
CLR A - BA GETS ZEROED. 
CLR B 
TSN SET INDEX TQ STACK. 

MULL f= SHIFT LEFT BA 
ROL B 
ASL 2, SHIFTS ORIG. 8A OPERAND 
ROL IN ONE LEFT INTO CARRY. 
ece MNUL2 SKIPS ADDING IF CARRY = @. 
ADD RA ARG 8A GETS BA + ARR. 
ADC B ARI 

MUL2 DEC aX TESTS IF D@NE. 
ENE MULL GOES BACK IF NOT DONE. 
INS CLEANS UP THE STACK. 
INS 
INS 


RTS EXITS ROUTINE. 
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@a513 
nasi4 
& 15 
BILE 
eas17 
bO518 
Has19 
8as20 
Gas2d 
Bas22 
Ga523 
HaS24 
8o525 
BHOSLE 
aas27 
HASSLE 
84529 
baSsa 
BASS1 
bOSS2 
HASLS 
BASS4 
8asz5 
HOSE 
BbS3* 
HASSE 
GGRs9 
O° "gH 
Ge 41 
nuas4S 
HGS4s 
basd4d 
88545 
bO546 


Busds 


88550 
@@351 
88552 
G@G55s 
Besss 
BB556 
@@55°° 
BASSS 
8@5539 
Gasee 
6G561 
BASEL 
G8563 
88564 
68565 
BPS66 
&_ 67 
BUSES 
G@a569 
Basra 


FFAF 
FFE 
FFBL 
FFB 
FFBS 


FEeS 


FFES 


FFB 
FFEB 
FFBD 
FFEF 
FFCB 
FFC2 
FFC4 
FFCE 
FFCS 
FFCA 
FFCC 
FFCE 
FFDA 


FFD2 6 


: 


DIVIDE ROUTINE 


THE DIVIDE SUBROUTINE DIVIDES THE 16 BIT NUMBER 
IN THE BA REGESTERS BY THE 16 BIT NUMBER IN THE PSEUDO 
REGESTER ARA CLOCRTED IN BYTES 6 & 7). UPON EXITING: 
BR WILL CONTAIN THE QUOTIENT OF THE DIVISION ANC ARA 
WILL CONTAIN THE RENAINDER. THE DI¥YIDEND BA IS DIVIDED 
By THE DIVISOR ARA CI.E. BA-ARA ?. 


EFEEEEES 


DIVIDE ALGORITHM: 


‘DIVIDE: 3.4 GETS BA (BA IS PUT ON THE STACK); 

“1.2 GETS THE 16 BIT ARA VALUE CARA PUT ON THE STACK): 
COUNT GETS 1 + THE NUMBER OF NONSIGNIFICANT BITS IN 
THE OIVISOR CLEFT JUSTIFY 1.2 TO FIRST 1 BIT. COUNT 
GETS 1 + THE # OF LEADING ZEROS IN S1,.2] [COUNT WILL BE 
FROM 2 TO 47]; 

BA GETS 83.4 CRESTORES 8A]; 

NS. 4 GETS 8 CINITIALIZES THE QUOTIENT; 

*DIVYS: BA GETS BA - x4. 2; 

* IF THERE WAS A BORROW CI.E. OIVIDEND IN BA < DIVISOR 
* IN S1.2 CARA] THEN 8A GETS BR + 81.2 CORIGINAL BA 

* YALUE RESTORED] & CARRY CLEARED ELSE CARRY IS SET; 
*DIVS: NS.4 CQUQTIENT] GETS CARRY LEFT SHIFTED IN: 


* 1,2 CBIVISOR] GETS SHIFTED RIGHT ONE PLACE WITH ZERO 
* FILLED IN FROM THE LEFT SIDE; 
* DECREMENT COUNT; 
* ENIT IF OONE ELSE GO TQ BI¥s3:; 
* 
* 
* 
€ 7 _ 
DIVIDE PSH A - LOADS DIVIDEND INTO Ns. 4. 
PSH B 
LDA A ARI LOADS DI¥YISOR FROM ARR. 
LDA B ARS 
PSH G - PUTS DI¥VISOR INTO 1.2. 
ped is SET UP SPACE FOR COUNT. 
TSX INDEX GETS STACK POINTER. 
LDR A #1 INITIALIZE COUNT. 
TST 1. TESTS FOR HI DI¥ISR BIT ON. 
BMI DIV2 SKIPS IF ON 
OIVvi Int A= COUNTS LEADING ZEROS. 
ASL 2X LEFT JUSTIFIES Xis2. 
ROL 1, 
BNI DI¥2 SKIPS IF NO LEADING ZERO. 
CMP A #17 TESTS FOR ALL ZERO DIVISOR. 
BNE DIV1 GOES BACK IF BITS LEFT. 
OIVv2 STR A. asx SETS COUNTER 
LDR B 3.N BA GETS ORIGINAL 
LDR A 4.8 DIVIDEND VALUE. 
CLR SiN CLEARS N23. 4 FOR FORMATION 
CLR 4,X OF THE QUOTIENT. 


_—— 
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eB572 
HASP> 
&v_.74 
basrs 
6as76e 
nas?7 
aas7s 
pasra 
AassA 
GO5S1 
aass2 
HOaS8S 
eased 
pBsss 
BA586 
ga5sF 
aases 
passa 
Ba598 
paso41 
Aasg92 
Has9F 
aso 
easgs 
GO596 
Ba5o7 
@B598 
§ 39 
AgeaE 
B0601 
Agee? 
BEAT 
Aeéed 
Hg6as 
aa6o6 
BOEaF 


e184 
FEAF 
8189 
Foo 


TOTAL ERRORS 68686 


END 


SUB 
SBC 


DD DD 


Bm 


STORES 


$0104 
$FEdF 
#0108 
$FC88 


START OF DIVIDE LOOP. 


SKIP IF DIVIDEND < DIYISOR. 
RESTORES DIVIDEND IN BR. 


CLEARS THE CARRY. 

SKIPS WITH CARRY CLEAR. 
SETS CARRY TO 1. 

SHIFT CARRY INTO 
QUOTIENT N23. 4 

SHIFTS DEYISOR X12 
RIGHT ONE. 

DECREMNENTS COUNTER. 

GOES BACK IF NOT DONE. 
STORES REMAINDER IN ARR. 


CLEANS UP THE STACK. 


QUOTIENT IN 6A. 
EXITS ROUTINE. 


INTERRUPT REQUEST VECTOR. 
SOFTHARE INT. ¥YECTOR ADDR. 
NIN-MASKABLE-INT. VECT. 
RESTART YECTOR ADDRESS. 


OF PDS SOURCE LISTING. 


END 


MBU FC.6E DE: 


30 E6 25 
2E 87 8D 

@ 81 2E 2D 

86. 18-97 27 
81 BA 2D 
DF 62 32 
DF 28 34 
96 B7 36 
G1 39 81 
37 86 18. 
27 D9 B6 
Ot 37-36 
2B 24 81 
AG @2 E2 
69 83 64 
21°33 82°39 


cco 1 
Aaa S | 4 Tmp wrenepa lil 
FD 2 ; < Deere 
~ O TSR moexer=QD) 


/ OOFF : ey: 
= E26 9 BsR=8D 
L ba 10. RTS = 34] 

FE OO 28 DF 40 DE 82 AG G6 DE AG 81 4S 2b 31 27 21 Bl I 
“10 44 27 22 DE G2 6&8 ABBE 61 60 26 FO 08 20 8BEBD Due acs cr 
.90 06 EE G0 DF 2A 20 9B 48~“SF 97 21 D7 GO DE GH 3A pec A ne 
E7 G2 28 96 2B AT BO8S 20 D5 ue T EMBL fet 
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GOG8L 
68882 
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GG806 
Hoon? 
AgHAS 
88809 
68618 
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NAN = PDS-\3N 
OPT 0. NOG 


PROGRAMMED BY ERIC JAMESON 


COPYRIGHT 197& SPHERE CORPORATION 
344 N. 47TH EAs NORTH SALT LAKE, UTAH S4054 


SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION: 
DISTRIBUTION ANO USE OF THE POS SOFTWARE. 

NO COPIES NAY BE NADE OR DISTRIBUTED WITHOUT THE 
WRITTEN PERMISSION OF SPHERE CORP. 


THE PROGRAM DEVELOPMENT SYSTEM CPDS YSN) IS A SET OF 
PROGRAMS RDSIDING ON ERASABLE PROGRAMMABLE RERD ONLY 
MENORY WHICH ALLOW EVEN THE SMALLEST USER TO USE HIS 
SPHERE SYSTEN AS A COMPLETE COMPUTER SYSTEM FOR THE 
DEYELOGPNENT OF COMPUTER PROGRAIIS. 

- TOWARD THIS END. THE 4 FDS EPROMNS CUNTAIN A CURSOR 
BASED EDITOR, A MNINI-ASSEMBLER, ANG THE SPHERE DEBUGGING 
AID (SPA). AS WELL AS A SET OF UTILITY ROUTINES TO cu te 
BIT MULTIPLY AND OIVIDE. ASCII-TQ-BINARY. AND 
BINARY-TO-ASCII ROUTINES. 


THE PDS-V¥3N PROM SET WAS WRITTEN IN ORDER TO RUN THE 
NEW KEYBORRD. CHANGES WERE MADE IN THE EDITOR AND THE 
DEBUGGER. AS THE NEW PROMS ARE A GREAT IMPROVEMENT OVER 
THE VSH PROMM SET. A VERSION KNOWN AS PDOS-¥YSD NAS HABE 
WOULD RUN ON THE GLO KEYBORROS. THE ORLY DIFFERENCE 
BETNEEN THE $’sD AND THE WSN PPROMS ARE THAT THE PIA 
ADDRESS IS CHANGED FROM FO4e8 ON VSN TO FUG ON Vad 
CHANGES MERE ALSO MADE IN THE DEBUGGER AND THE 
EDITOR. THE EPITOR CHANGES WERE THAT INSERT AND OELETE 
ARE NOW AT THE TOP GF THE PAGE AND THAT THERE IS A REEDIT 
COMMAND IN THE EXEC (CTRL RD TO ALLOW RE-EPITING. THE 
ENTRY TO THE PEBUGGER FROM THE BREAKPOINT INSTRUCTION 
HAS BEEN CHANGED SO THAT THE RETURN HDORESS FUR THE 
BREAKPOINT IS NOW CALCULATED WHEN THE BREAKPOINT IS 
ENCOUNTERED ANO GOES TO THE DESUGGER. iN ADDITION 
THERE ARE 2 NEW INSTRUCTIONS: TJ FOR DOING A JSR TO 
A ROUTINE AND TS TO EXIT BACK TO THE Exéc 


— on wo 


PPT= a2 


eoess 
eoasée 
80857 
g0a58 
B0859 
eoa6e 
GO861 
00062 
GO962 
aage4 
GGG65 
A866 
BgaE? 
gages 
oaGa69 
eea7e 
ORF 1 
ear? 
gaa7s 
eo074 
e875 
0076 
agar? 
Bnazg 
a °9 
egnse 
GG881 
Bgas2 
eaas2 
o0e34 
aeass 
oases 
HBAS? 
Beas 
0839 
e0090 
GGa91 


PDS-VIN 

* 

* 
6aeea TMP 
8882 TMP1 
8604 ARB 
6804 ARS 
eas AR2 
@ee6 ARA 
8666 AR1 
@aa? ARG 
aes DIGIT 
888A QUTEND 
66ac BUFADR 
BOE BUFEND 
@ai4 OQUTBUF 
6614 SRCADR 
@@16 DSTADR 
@01A ENDNEM 
@61C CSRPTR 
G6G1E BUFPTR 
6826 BUFFLO 
8822 BUFFHI 
G24 SCNPTR 
8626 SRCRSM 
@62A ONDYAL 
8G2C SYMVAL 
HAZE BRKSAY 
8838 BRKADR 
G@@32 EDIT 
8835 IOQBUFF 
6@4a PCYAL 

* 
E@LIF FRSTLN 
E1E@ LASTLN 
EFF LASTCH 
F846 KBDPIA 


*KEYBOARD FIA 


INPCHR 
VEBLIG 
SEBIN 


Eau 
EQU 
EQu 
EQU 
EQu 
EQu 
EQu 
Eau 
Eau 
EQU 
Eau 
EQU 
EQU 
EQuU 
E@U 
EQU 
Eau 
EQU 
EQu 
EQu 
Eau 


EQu 
Eau 
EQu 
EQU 


EQU 
El 
Eau 


MEMORY NAP 


#08 

$82 

#04 16 BIT ACC. PSEUDO REG B. 
#84 ~HI BYTE OF ARB. 

#85 -LQ BYTE OF ARB. 

$06 16 BI’ ARITH PSEUON REG A. 

#06 ~HI BYTE OF ARA. 

$87 -~LO BYTE OF ARA 

#63 BYTE USED BY ASCBIN FOR THP. 
$A END OF QUTPUT BUFFER TEXT. 
#aC START QF IQ BUFFER ¢PTR> 
SBE PTR. TQ END OF I/O BUFFR. 

¥1i1 START OF OUTFUT BUFFER 

$14 SQURCE FOR TEXT MOVES. 

#16 DEST. ADDR. FOR TEXT MOVE 

#1A LAST ADPRES OF REAL MEMORY 

#1C PTR TQ CURSER ON SCREEN 
$1E TEMP PTR USED BY QUTSTR. 

$28 PTR TQ END OF LOW EDIT TAT. 
$22 PTR TQ START OF HI TENT. 

#24 PTR. TQ BUFFRD TXT START. 
$26 PTR TO ASSMBLR SOURCE CODE 
2A HAS ASSMBLR OPERND VALUE 

$20 VALUE PUT IN ASSM. SYHTBL. 

¥2E TENP SAYE FOR BRKPT DATA. 
$30 ADDDRESS QF BREAKPOINT 

#32 @ IF EDITOR IS NOT RUNNING. 
#35 I-Q BUFFER FOR DEGUGGER. 

#40 FROGRAMN COUNTER FOR ASSP. 


FEGLIF RIGHTMOST CHAR OF LINE ONE 

SELEO LEFF SIDE OF BOTTOM OF CRT 
SELFF LAST CHAR ON CRT OISFLAY' 

$FO48 ADDRESS OF FIA FOR KBOG-2. 
ADCRESS FOR OLD KEYBORRD CKBD-1A) IS Faea 


$FEC1 INPUTS A CHARACTER. 


$F EBs “BUGGER ROUTINE. 
$F ad ey Td ET NGRY ROUTINE 


P°"E G63 


80097 
geass 
aeass 
ee1ea 
eg1a4 
80102 
B9182 
68104 
9e1e5 Fcae 
a@1e6 FCea 
@a@1@7 FCA? 
aa1ee FCa4 
68109 FCG6 
6a11@ FCa@s 
60111 FC@A 
@G112 FC@D 
@8113 FC1a 
06114 FC1I2 
06115 
@8116 
@a117 
@G118 
69119 
66128 
& 24 
O8122 
08122 
G@124 
68125 
66126 
08127 
@@128 FC14 


O8129 FCLE 
G@G18 FC1AS § 


@61S1 FCLIA 
Gb1s2 FCLID 
G@G1S3 FCLF 
60134 FC21 


GB1s5 FCe4 8: 


GO126 FC26 
80137 FC28 
80138 FCZA 
0439 FCZC 


88141 Fc30 


66142 FCS2 2 


@6143 FCS4 


KFEeEEKEREE 


0 
@1FF RESTRT LDS 


ERR EKKREEEKEKE E 


GUE 
P A OSE 


INITIALIZATION 


$FCGa 
#S1FF 


SRCASM 
BUFADR 
#$1F 


KBDPIA+1 


#3F FF 
BUFEND 
ENDMEM 


THE INITIALIZATION ROUTINES SET UP THE INITIAL VALUES 
UPON SYSTEM RESET. 


SETS STACK POINTER 

MOVES STK PTR TQ INDEX REG 
SETS ASSEMBLR QUTPUT PTR 
INIT INPUT BUFFR ADDR. 
INTL2. KEYBOARD FIR. 

PIA CONTROL REG. ADDRESS. 
LAST LOCATN OF MEMORY. 
INIT END-OF-EDIT BUFFR. 
INIT END-OF-MEM ADDR. 


COMMAND LANGUAGE 


HOME 
CLEAR 
CR1 
INFCHR 
#fH1 
EXNEC2 
ASNELR 
#405 
EXECS 
ECITOR 
#F12 
ESEC4 


EXEC1 
DEBUG 


THIS EXECUTIVE ACCEPTS COMMANDS FROM THE KEYBGARO TO 
DETERMINE WHAT UTILITY IS TQ BE RUN. INVALID COMMANDS 
WILL SPACE THE CURSOR DOWN ONE LINE. si NOT SPACE OFF THE 
BOTTOM OF THE SCREEN. ae 5 on 


i 


CSRPTR IS HOMED. 

CLEARS SCREEN 

CRLF FOR NEW LINE. 

GETS & BISPLAYS CHR. 
TESTS IF ASSENBLY COMMD. 
SKIPS IF OTHER COMNMANG. 
JUMPS TO ASSENBL PRRUGRI. 
TESTS IF CONTRL “E*. 
SKIPS IF NOT EDIT CHD 
JUMPS TO EDIT TEX Te 

TESTS FOR A TR COMMAND. 
SKIPS IF NOT A REEDIT COMNO. BHL14IO FCLE 


ES TQ REEDIT TEXT. 


TESTS FUR CONTRL “D’. 
SKIPS BACK FOR A NEW COMND. 
JUNPS TO DEBUGGER. 


i —_t 
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GETS CSRPTRt1; CALL OYRFLO. 


THE EDITOR 


THE EDITOR ALLOWS INPUT FROM THE KEYBOARD INTO A 
BUFFER NEMORY. INPUT IS DISPLAYED QN THE SCREEN. WHEN 
IT IS TYPED IN» THE SCREEN TEXT CAN THEN RE EDITED BY USE 
OF THE CURSOR. WHEN THE SCREEN IS FULL QR EDITING IS 
FINISHED. THE DATA IS SCROLLED GFF THE SCREEN INTO THE 
EDIT BUFFER. WHEN TEXT IS SCROLLED OFF THE TOP QF THE 
SCREEN. IT IS STORED FROM THE BUFFER RODRESS POINTER 
CBUFADR> TQ THE LOW BUFFER POINTER ¢(BUFFLQ). BUFFLO 
POINTS TQ THE END QF TEXT + ONE ¢F.£. IT POINTS TQ THE 
FIRST UNUSED BYTE>. WHEN IT IS SCROLLEG OFF THE BOTTOM 
OF THE SCREEN. IT IS STORED IN THE TOP OF THE EDIT BUFFER. 
THE TEXT GOES FROM THE HIGH BUFFER PUINTER (BUFFHI) To 
THE END OF BUFFER POINTER (BUFEND). BUFFHI POINTS TQ 
THE END OF TEXT - ONE ¢I.E. IT POINTS TO THE LAST UNUSED 
BYTE IN THE BUFFER). WHEN THE TEST IS SCROLLED UP 
OFF THE TOP OF THE SCREEN. TEST IS TAKEN FROM THE HIGH 
AREA OF THE EDIT BUFFER AND DISPLAYED ON THE LAST LINE OF 
THE SCREEN. WHEN TEXT IS SCROLLED DOWN OFF THE BOTTOM. 
TEXT. IF ANY EXISTS, IS MOWER FROM THE LOW EDIT BUFFER 
AREA TO THE TOP LINE OF THE SCREEN 


POINTERS USED 


CSRPTR POSITION OF CHARACTERS INSERTED ON THE SCREEN 
SCNPTR POSITION OF START OF EDITED TEXT ON SCREEN 
BUFADR START OF TEST BUFFER IN MAIN MENORY. 

BUFEND END OF TEXT BUFFER IN MAIN MEMORY’ 

BUFFLO END OF TEXT SCROLLED OFF TOP OF SCREEN 

BUFFHI START OF TEXT SCROLED OFF BOTTCM OF SCREEN 
BUFLEN NOT CURRENTLY USED. 


EDITOR COMMANDS 


“UP ARRON" MOVES CURSOR UP ONE LINE; CSRPTR GETS 
CSRPTR-32; CALL NDRFLO 


* 


“DOWN ARRON" MOVES CURSOR DOWN ONE LINEi CSRPTR GETS 
CSRPTR+32; CALL OVRFLO 


“RIGHT ARROW" MOVES CURSOR ONE POSITION RIGHT; CSRPTR 
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C&=83 
G8204 
G8205 
GA286 
60267 
66288 
BA289 
68218 
@6211 
@6212 
O0213 
@6214 
@G215 
60216 
60217 
66218 
68219 
606224 
@0221 


G8233 
BA234 
68225 
Ba256 
Ga237 
89238 
68239 
6a24@a 
60244 
40242 
86243 
G24 4 
60245 
8246 
00247 
8a248 
G0249 
66258 
88251 
GA?P%2 
Gé 2 
68254 
88255 
89256 
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"LEFT ARROW" MOVES CURSOR ONE POSITION LEFT: CSRPTR 
GETS CSRPTR-1; CALL NDRFLO 


"CONTROL & LEFT ARROW CON KEYBOARD)" LEFT JUSTIFS CURSOR; 
CSRPTR GETS CSRPTR TRUNCATED; CALL NDRFLQ FOR SCNLOC CHK. 


“PUTCHR" OQUTPUTS CHARACTER: CSRPTR GETS 
CSRPTR+1; GOES TO OVRFLO. 


"ENDCHR" TERMINATION CHAR: CLEAR EDIT FLAG: 
EXIT THE EDITOR. 


"HOME" HOMES CURSOR POINTER: CSRPTR GETS EG@G; NDRFLO. 
"CLEAR" CSRPTR TQ END OF THE SCREEN GETS SPACES. 


"CTRL I" INSERT AR LINE AT THE LAST LINE ON THE SCREEN: 
CALL OYR1 ¢SCROLLS UP ONE LINE); CSRPTR GETS E1E@. 


"CTRL DB" DELETE LAST LINE; SCROLL DOWN CUNDR2); 
CSRPTR GETS E1E@. 


OVERFLOW CHECKS IF SCROLL UP IS NEEDED; IF IT IS. IT 
SCROLLS UP AND NOVES DATA TQ & FROM THE BUFFEERS. 


OVRFLO: IF CSRPTR ¢ E28@ THEN RETURN; IF EDIT IS ON THEN 
OVR1: BUFFLO+ GETS SCNPTR TO “C.R. °3 

DSTADR GETS CSRPTR GETS ELE@ ¢LAST LINE QN SCREEN): 

IF EDIT IS ON AND BUFFHI < BUFEND THEN MOWE THE TENT 
(THE STRING FROM BUFFHI Ta °C. R. “) TQ THE LAST LINE 


UNDERFLOW CHECKS IF SCROLL DOWN IS NEEDED AND NOYES 
DATA TO AND FROM THE BUFFERS. CURSOR HAO BEEN 
MOYED OFF THE TOP OF THE SCREEN AND IS NOW PUT AT THE 
HOME POSITION ON THE SCREEN. 


NDORFLQ: IF CSRPTR > OFFF THEN RETURN (GO TQ QYRFLOD; 
IF EDIT FLAG IS ON THEN NOVE LAST LINE TQ BUFFHI 
ON DOWN: SCRLON; CSRPTR GETS E8ao: MOVE LINE FROM 
BUFFLO TO FIRST LINE ON THE ERT. 


NOTE: DON’T SCROLL OFF SCREEN IN EXEC UNTIL AFTER 
THE EDITOR HAS BEEN RUN 


NOTE: EVERY LINE MUST HAYE AC.R. ON IT. 
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gees8 FC3? CE E@@Q@ HOME LDN 
8a259 FC3A DF 1C STN 
@426@ FCC 39 RTS 
08261 * 

BAZE2 * 

80263 FC3D C6 66 CLEAR LDA ®B 
G4264 FCRF CE E26a LOX 
aa265 FC42 ag CLEAR1 DEX 
B@266 FC43 E? GA STA B 
88267 FC45 9C iC CPX 
Ga268 FC47 26 FS ENE 
88269 FC49 39 RTS 
662768 * 

68271 * 

48272 * 

@02723 * GETCHR 
G8274 * MOYING 
e8275 * 

BA276 FC4A DE 10 GETCHR LDN 
08277 FC4C 62 ea com 
Ga278 FC4E CE 26F0 LOX 
68279 FC51 a3 GET1 DEN 
B28 FCS2 27 FE BER 
68281 FC5S4 86 48 LDA A 
r-?82 FCSE BS FOdd cig ct BIT A 
bev83 FCSI 27 FE 4? BEQ 
G8284 FCSB DE 1.0 LDS 
G@a2e5 FCSD As aa LOA A 
G6286 FCSF 2A biz EPL 
Q6287 FCé1L 62 88 COM 
09288 FC6? BE Fa4@ GET2 LDA A 
GA289 FCEE 39 RTS 
agesa a Dy > 
-BG294 * oe ee 
Ga292 * 

88293 * 8 

68294 * 

80295 * 

GG296 FCS? DE eC EDITOR LON 
AR29I7 FCI DF 2a STX 
20298 FCEB DE BE LDN 
HO299 FCED DF 22 STN 
“aica FCEF S80 C6  REEDIT BSR 

3 74 SD CA ISR 

Ge28s Eeoe S28 £8 correp ETA A 
Q@@3@2 FC7S DE 10 EDITIN LDS 
GAI04 FC7? DF 2 STX 
8az05 # 

GA286 oo 

-%Q? FC79 8D CF  EDREAD BSR 
&88 FC?7R 81 18 ENOCHR CNP A 
@8209 FC7D 26 G4 BNE 
@B31@ FCF 7F Gaz2 CLR 
@@3211 FCS2 39 RTS 
@@312 FCB83 SP GA EDA BSR 
39313 FCSS F2 BRA 


Pay 3 


on | 


#SEGGA 
CSRPTR 


#60 


LORDS HOME POSITION. 
STORES HOME IN CURSOR PTR. 
RETURNS TQ CALLER. 


LCADS BLANK ¢C_R. 3. 


#LASTCHt+1 LOADS END-OF-SCREEN PTR. 


aN 
CSRPTR 
CLEAR1 


INPUTS A 


THE CURSOR, 


CSRPTR 
Gs & 
#9968 


GETCHR 
#348 
KBOPIAtL 


KEDPIA 


Fw Bo 
v >L? 


BUFADR 
BUFFLO 
BUFEND 
BUFFHI 
HOME 
CLEFR 
EOIT 
CSRPTR 
SCNFTR 


GETCHR 


INSERT 


EDREAD 


DECRENENTS BLANKING PTR. 
BLANKS LOCATION. 

TESTS IF DONE. 

BRANCHES BACK IF NQT DONE. 
RETURNS. 


CHARACTER INTO ACC A WITHOUT 
FIND BLINKS THE CURSOR. 


LOADS CRT CURSOR POSITION. 
COMPLIMENT ¢CFLASH POSITION) 
LOADS BLINK CQUNT VALUE. 
COUNT GETS COUNT~-1. 

RESETS CTR WHEN TIMED QUT. 
LOADS MASK FOR CA2 FLAG. 
TESTS IF A CHAR. TYPED IN. 
BRANCH IF CHAR NOT ENTERED. 
LOADS CURSOR POSITION. 
TESTS IF BLINKND (SOLID). 
SKIPS IF NOT BLINKED. 
CLEARS THE CHARACTER. 

LOADS A NITH KEYERD CHAR 
RETURNS TO CALLER 


EDITOR IS THE MAIN ENTRY POINT FOR EDITING. 


BUFFLO GETS THE 

VALUE QF SUFADR. 

EL} FFHI GE =FS THE 
VALUE UF BUFEND 
ENTRY POINT Far 
RE-EDITING TEST 
TURNS ON EDIT HOE. 
SETS SCNPTR TQ CSRPTR. 


®% GETS CSRPTR & A GETS CHR. 
TESTS FOR AN "ESC" CHAR. 
SKIPS IF NOT EDIT END 
TURNS OFF EDIT FLAG 

ESITS THE EDITOR. 

EDITS CHARACTER. 

GOES FOR NEXT CHARACTER 
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& 15 * 

GG316 * 

G@317 * FOLLOWING IS THE MAIN EDITOR EXECUTION LOOP. 
88318 * 

88319 * 

GAS2E0 * 

G@321 * 

GAS22 * 

Gases FCS? $1 ad CR CNP RAR ##8D TESTS FOR CARRIAGE RETURN. 
@as24 FCSY 2D AC BLT HOME SKIPS IF HOME CURSR COMND. 
HHS25 FCSB 2SE 12 BGT RTCSR GOES TQ NEXT COMND TEST 
Gas26 FCSP Sé &a CRI LDA A ##68 LOADS INTERNAL C.R. WALUE. 
HG327° * 

BHS2ES * 

RAS29 * 

GOGsse * 

@G231 FCSF $1 og INSERT CMP A ##89 TESTS FOR A CONTROL “I”. 
BHSS2 FC91 2P 16 BLT DELETE SKIPS TO DELETE CODPMD. 
G@Gsss FCIS ZE F2 BGT CR SKIPS FOR NEST TEST. 

HaSS4 FCIS DE 32 INSRT1 LOA E& EDIT TESTS IF EDITOR IS ON. 
G35 FCIF 27 as BEQ INSRTZ SKIP TO ENIT IF EDITOR OFF. 
GASI6 FCS9 BP Fo4eE JSR MNOvES MOVES LAST LINE TO BULFFHI. 
pee Fesce FE FDF4 INSRT2 INF SCRLDN MOVES ALL LINES DOWN ONE. 
GASES * 

GAZES * 

i 4a s 

GHS41 FCSF 81 12 RTCSR CNP A ##12 TESTS FOR RIGHT ARROW. 
@GS42 FCAL 20 28 BLT SUBS2 SKIPS IF AN "UF ARROW". 
HOS9Is FCAS 2E 8s BGT LFTCSR SKIPS IF A “LEFT ARRON". 
H8s44d FCAS DE 1.0 RTARROQ LON CSRFTR LOADS CURSOR POINTER 
@a345 FCAT 20 iF BRA PUTCHL STGRES & INCREMENTS CSR. 
BOS4E * 

Hard? * 

HAS48 *# 

G@8349 FCAS 80 S&F PELETE BSR OVRIA SCROLLS UF GNE LINE 

Gas5@ FCAR 2a 48 BRA OVRS MOVES NEW LAST SCREEN LINE 
Gasst * 

HeSa2 * 

HOSS a 

HasS4 FCAD S114 LFTCSR CHF A #¥14 TESTS IF “LEFT ARROL" 
Ga255 FCAF 2D 24 FT AOD2 SKIPS IF "DONN ARROW" 
BASS FCBL 2E bs BGT CLER SKIPS FOR NEST TEST. 
Gaso7 FCBE a9 DES Suge. 1 FROM CSRPTP 

ga358 FCR4 28 25 BRA ALDZ STORES CURSOR POINTER 
HaIsS3 * 

Hasea * 

GH361 * 

lase2 FCB6 S1 IF CLER CNP A ##1F TESTS FOR CTRL BACK ARROH. 
BASES FCBS 2D Ss BLT CLEAR GOES TO CLEAR SCREEN. 
HeS64 FCBA 2r Ad BER@ LFT IST NOYES CSR TQ LEFT OF SCREEN. 
é& 65 * , 
MIs66 * 

88S67 * ALL QTHER CHARACTERS FALL THRU TO PUTCHR 

HOSES * 


aae7a 
A037 

HaTr2 
GA373 
aas?4 
GO375 
BOZ76 
GO377 
aaz7e 
gasr9 
HOS80 
Gaze1 
HOSS 
GO293 


ah May Mad 


Lo Wo 80 8 NO 
TO te ty Py 


2m SD 
Soage 


40.3 % 


~ 
i 
a 


6a 


FCBC 
FCBE 
Fcca 
FCC2 
FCC4 
Feces 
FCCS 
FCCS 


FCCE 
FCCD 


° FCCF 


FCDa 
FCD1L 


2 FCDS 


FCDS 
FCD? 
FCDS 
FCOS 
FCDE 


FOOD 


FEED Sh 


FCE4 
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sd PUTCHR DISPLAYS A CHARACTER ON THE CRT DISPLAY AND 
* INCREMENTS THE CURSOR POINTER AS WELL AS CHECKING 
* AND HANDLING CARRIAGE RETURNS. 
* 
x 
* 

DE 2.¢ PUTCHR LDS CSRPTR LOADS QLB CSRPTR 

S81 &ID CHP A ##GD TESTS FOR ENTERNAL C. R. 

2P El4 BEQ CRLFA SKIPS TO DQ ACR. L. F. 

AY? 8a STH A G&S DISPLAYS CHAR ON SCREEN. 

£i 6a CHP A #¥#68 TESTS FQR INTERNAL C. R. 

er 4c CRLFi BEQ CRLF SKIPS FOR CR. LF. 

ag PUTCHI INN INCREMENTS CSRPTR. 

2u 18 BRA ADDE TESTS FQR OVRFLO & UNDRFLO. 

DE 21.6 SUBS2 LDN CSRFTR LOADS CURRENT CRSR FOSITION. 

Cé& 28 LOA B #32 LOADS LOQOF COLINT, 

ag SUBS2A DES DECRENENTS CSRPTR 

SA DEC B = DECRENENTS LOQF COUNTR. 

26 FC BNE SUBS2A SKIPS BACK IF NOT DONE. 

£@ 06 BRA ADD2 SKIPS TQ CHECK UNDRFLO. 

Cé 28 ADDS2S LDA B #32 LORDS LOQP COLNTER 

a8 ADDSZA INN INCRE. CSRPTR IN INDEX. 

5A DEC RB - BCERENENTS LOOF CQUNTER. 

26 FC BE ADDSZA SKIFS BACK IF NOT GUNE 

BE it AOR] Six CSRETR SAVES CSRFETR 
* NDRFLO CUNDERFLOW.S CHECKS FOR THE CURSQR GOING OFF THE 
* TUF OF THE SCREEN. THE INGEN REG. CONTAINS THE CURSOR 
* POINTER WHEN THE ROUTINE IS ENTERED. 
i 
* 

SC E808 NDRFLO CPN ##E000 TESTS IF CSRPTR >= DFFF. 

ot 'G VEE SKIPS IF CSRPTR GREATER. 

Sf Ei Bae Heer? here d DELWN & NOvVES LINE. 

80 Sz BSR MOVES NOVES BUFFLQ TU TOF OF CRT. 


— 
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aadas 
He4a9 
e418 


HG413 
68414 
80415 
G8416 
bedi? 
88413 
HA419 
Ha4ea 
Ooded 
Haq2 
Hides 
AHaqded 
BHd25 
bO4l6 
bade; 
68423 
Had eo 
GE4sg 
HA4FS1 
HO4S2 
Bass 
Ha4s4 
OH4s5 
E ‘S36 
leds? 
HE4s8 
Hud sg 
He4da 
Haddy 
Gb442 
HaAdd4 s 
figdg 
Baggs 
Badge 
Hdd 
Hadds 
He 4 9 


G5451 
Hod S2 
oo4 
GoO454 


Has 


FCE6 
FCE9 
FCEB 
FCED 
FCEF 
FCF1 
FCFS 


2 FCFS 


FCF? 
FCF 
FCFB 


FCFD 
FCFF 
FDad 
FDAZ 


FDG4 
FDas 
FRGS 
FOGA 
FD&C 
FORE 
FD1G 


FD12 2 


S3 FD14 
FR16 2 


PDS-V3N 


, Ecug 


1D 
1D 


BF 
ES 


Ot L ESF E 


VRFLQ 


OVRS 


VR1 


OVRLA 


CRLF 


CPS ° 
BNI 
BSR 
LDA B 
BEG 
LON 
CPS 
BEW 
BSR 
LON 
STS 


#FECOS 
OVREXT 
OYRI 

EDIT 

OVREST 
BUFFHI 
BUFEND 
OYREST 
NOVELA 
SRCHDR 
BUFFHI 


OVERFLOW CHECKS FOR SCROLLING UP ¢CCURSOR IS OFF 
THE BQTTON OF THE SCREEN); INDEX CONTAINS THE CURSOR 
POINTER UPON ENTRY. 


TESTS AND EXITS IF 
CURSOR ON SCREEN. 

DOES OYR1 CHECKING. 
TESTS IF EDIT IS GN. 
EXITS IF IT 15 OFF. 
LOADS HI TENT POINTR. 
TESTS IF PTRS NOT EQU. 
EXITS IF NO TEXT. 
NOWES CHRS TQ LAST LINE. 
RESETS NEW BUFFHI 
LOCATION. 


FOLLOWING ROUTINE MOYES THE CURSER TQ THE LEFT. 


LOA B CSRPTRt1 LOADS LOW BYTE OF FTIR. 
AND B ##E@ 
STR B CSRPTR+1 SAVES L. J. ED PTR. 


RTS 


TRUNCATES TO LEFT OF LINE. 
RETURNS TO EDITOR. 


OYR1 DOES ACTUAL SCROLLING UP. 


LOA B 
BEQ 
LON 
STS 
LBS 
ESR 
Sis 
BRA 


EDIT 
OYRIA 
EUFFLO 
DSTHOR 
SCNFTR 
MOVE. 
BUFFLO 
SCRLUP 


TESTS IF EDIT IS Of. 
SKIPS IF ECiIT Gr. 

LOADS TEST PTR LOW. 

DES STINATION OF TEXT MOVE. 
SGURCE FOR MOVE. 

MNOWES LINL TQ BUFFFLO. 
SAVES NEW BUFFLO PTR. 
SCROLLS SCREEN UP 1. 


FOLLOWING ROUTINE MOVES THE CURSOR. 


ESR 
BRA 


ACDS2 
LEFTIST 


LINE FEED 
CARRIAGE RETURN. 


me 


‘ SAGE 


Gads5é 
@oqs? 
ba4sS 
i ‘S9 
 Ga4ea 
GG461 
BH462 
GA462 
G8464 
8465 
BE466 
HAaqEe? 
B8G463 
88469 
Bhd 7a 
GG471 
Haqgrs & 
88473 
AB4 4 
BH475 
Had re 
bG47? 
HG4F Ee 
68479 
6488 


Pe 'S2 
beh S 
88484 
GG4s3 
88486 
88487 
GG4ss 
88489 
68490 
Go491 
G4FL> 
HOS 
ea494 
Ga4dgs 
HO4FI& 
Bago - 
BO423 
BO4FQ9 
BaSeo 
GS 
GUase 
GASRS FE 
bt bad 


G14 


FD18 
FD1A 
FDIC 
FOIE 
FR2a@ 
het 
FDR2s 
FO25 
FD2 
FD2e 
FDZA 
FR2C 
FD2E 
FD2F 
FDS1 


FD33 
FDS5 
FD36 
FDIS 
FDSA 
FDSC 
FOIE 
FOSF 
FD41 


42 
Fb45 
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: ANOTHER BUFFER AREA. 

. 

* 

* MOVES 

* 

* THE CRT. 

* 

* 
DE 24 MOVE LDN SCNPTR 
DF 16 STN DSTADR 
DE Za LDS BUFFLO 
9c ac CPX BUFADR 
ar oe BEQ NOVEST 
ag DEX 
gc 8 | =ONYS41 (CPS BUFADR 
27 ag BEW MYVze 
’ Oo DEN 
Fé aa LDA B GX 
C1 ea CNP B ##68 
26 FS BNE NYS 
ag INN 
DPF 2@ MV32. STS BUFFLO 
2A as BRA MOVES 

* MOVES 

* 

* NOVEL MOVES 

* 

* 

* IN THE INDES REG. . 

* 

* TENT BEING MOVED. 

* 

* 

* 

* 
DE 14 MOVE LDS SRCADR 
Ba NOVELA INS 
Es 00 MOQVEL LDA B ax 
DF 14 STN SRCADR 
PE 16 LDS DSTADR 
EF 6a STAB @&as 
ae INN 
PF 16 STN DSTHOR 
Ci 6a CHP B #60 
eet E fb i a \ 
33 . MOVENT pee = 


MOVE INSTRUCTIONS MOVE FROM QNE BUFFER RRER TO 


CALCULATES THE SOURCE ADDRESS QF THE DATA IN 
BUFFLO CIF IT EXISTS) FOR MOVING TO THE FIRST LINE ON 


MOVE 1 IS THEN ENTERED TQ DO THE MOVING. 


CSRPTR GETS EG@@G CHONE). 
SETS MOVE ADDRESS. 

LORDS LO BUFFR ADDR. 

TESTS IF STRING EXISTS, 
EXITS IF EMPTY. 

MOYES BACK FROM BLANK. 
TESTS IF SRCADR = BUFFADR. 
MOVES IF START OF LINE. 
NEST LOHER CHAR. 

GETS SGURCE CHAR FOR TEST. 
TESTS. FOR “6. &. ™. 

SKIPS BACK UNTIL "C.R. ". 
POINTS BROCK TQ FIRST CHAR. 
SAVES LO ADDRESS. 

MOYES DATA. 


A SET OF CHARACTERS FROM EITHER THE TOP 
LINE OF THE SCREEN TO BUFFLO OR FROM BUFFHI TQ THE 
BOTTOM LINE OF THE SCREEN. THE SGURCE ADDRESS IS PASSED 
THE DESTINATION ADDRESS IN DSTRDR: 
AND THE NOE IS TERNINATED BY A "C.K." iN THE LINE OF 


LOADS SOURCE ADDRESS INTO N.E 
PCINTS Ta NENT SOURCE CHAR. 
LO9DS SOURCE CHARECTER. 

eee Sh 


SAVES THE SOURCE POINTER. 
LOAlS PESTINATION ADORESS. 
STORES CHSR. IN DESTINATION. 
NENT DESTINATION BDDRESS. 
SAVES DESTINATION FTP. 

TESTS IF NOVE FINSHED (CRD. 
SKIPS ESCK IF NOT DONE. 
RETURNS TO CALLER. 
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ww 

gase6 * MOVE2 SUBROUTINE 

Heso7 * 

gasas * THE MOVE2 SUBROUTINE MOVES THE LAST LINE ON THE 
Ha5a9 * SCREEN TO THE HIGH ARER OF THE BUFFER «BUFFHI) DURING 
r-510 * SCROLLING. THE TEXT IS TEMPORARILY STORED ON THE STACK 
i s14 * DURING THE MOVE. THE MOVE IS TERMINATED BY A "CR." 
aa512 * THE TEXT IS STORED AT BUFFHI GN DOWN. 

BE513 * 

Ba514 * 

ga515 k 

6a516 * 


easir FO46 CE ELE@ MOYEZ LDS #LASTLN X GETS ADDR OF LAST LINE. 


G@@518 FR49 SF CLR B SETS TERMINATION FOR 
GA519 FRIAR sr MYe2d PSH B STACK POPPING. 

HE52G FD4B E6& @@ LDA B aS LOADS SOURCE CHAR. 

GE521 FD4D as INN POINTS TO NENT CHAR. 
G@G522 FO4E C1 6@ CNP B ##68 TESTS IF LINE 70 “6. Rk.” 
HAS2S FOSG 26 FS BNE N¥SL MOVED TQ STRACK. 

HaS24 FOS2 DE 22 MY22 LDN BUFFHI INIT. DESTINATION. 

WOIL5 FDS4 EF GH MY2es STAB @S STORES CHAR. 

Gar26 FDS6 as DES POINTS TQ NEST LOCATION. 
G@8527 FOS? DF 22 STS BUFFHI UPDATES BUFFER PTR. 

G@G528 FDS ss PL & = GETS NENT CHAR. 

Ga529 FOSA Ci eG CMP B #8@ TESTS IF ALL CHRS STORED. 
G8isG FOSC 26 Fé BNE N¥23 SKIPS BACK IF NOT STORED. 
G85S1 FDSE 39 MQVEX RTS RETURNS TQ CALLER. 


BESSS 7 SCROLLUP MOVES ALL LINES UP 4, & CLEARS LAST LINE. 
, T34 * 
Gass5 FSF CE EBG@ SCRLUP LDX #FEGG8 SETS CRT HOME POSITION. 


G8526 FR62 Eo 2G SCRPL LDA B $20.8 GETS CHAR FROM NEST LINE. 


BASS? Foe4 Er 8@ STA B Gun STORES CHAR ON PREY. LINE. 
HESSE FREES BF INS POINTS TQ NEST LINE. 

G@G5s9 FOS? SC ELEG CPX #LASTLN TESTS IF MOVE DONE. 

GG548 FR6A 26 Fe BNE SCRP1 GOES BACK IF NOT DONE. 
GG541 FR6C DF 1c STW CERPTR SETS CSRFPTR TQ LAST LINE. 
GHS42 FRSE OF 16 STH CSTRDR INIT GEST FOR NENT MOVE. 
BASIS Fora Bo FOSD JSR CLEAR CLEARS LAST LINE. 

Gasdd4 FOSS 39 RTS EAI TS. 


€.... 
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J6546 + SCRLDOWN MOVES ALL LINES DOWN ONE AND 
I54 7 * CLEARS THE TOP LINE ON THE SCREEN. 
wS48 * 


G@G549 FO?4 CE E1LDF SCRLON LDN #LASTLN-1 INITIALIZES THE POINTER. 


8558 FPF? E6 88 SCRDL LDA B SS LORDS DATA TQ BE MOVED. 
@G@551 FOr79 Er 2é STA B $28,% MOVES DATA DOWN ONE LINE. 
BO552 FOB DF 1c STS CSRFTR = SAYES CURSOR 

GBESSS FDFD BO DEN POINTS TQ NEXT BYTE 

863354 FOr?E SC DFFF CPN #SDFFF TESTS IF MOVE FINISHED 
GBS55 FOSL 26 F4 BNE SCRD1 SKIPS BACK IF NQT DONE. 
HGS56 FRSs Cé 6a LDA B ##68 LORAPS BLANK TO CLEAR LINE. 
GESS? FRSs es SCRD2 INN POINTS TQ NENT CHARACTER 
BGISS FOSS EF eG STAB G&S CLEARS BY'TE ON LINE 1. 
GGS59 FOSS SC EG1IF CPX #FRSTLN TESTS IF LINE 1 CLEARED. 
BO5608 FDSB 26 FE BNE SCRD2 SKIPS BACK IF NOT CLEARED 
GOS61 FDSD 29 RTS RETURNS. 

BHOS6S * QUTSTRING PRINTS OUT THE STRING BETWEEN THE 
HOI64 * QUTBUF POINTER AND THE BUFEND POINTER 
G@G565 * 

GG566 FDSE DE 1.4 QUTSTR LON QUTBUF BUFPTR GETS START OF TENT. 
Ba56F FOIE Aé Ha OUTL LDA R GS LOADS CHAR TO BE PUT QUT. 
“A568 FD92 DF 1E ST BUFPTR SAYES SOURCE POINTER. 
4569 FOI4 BD FCBC JSR PUTCHR PRINTS CHARACTER. 

@G57@ FOS? DE 1E LDw BUFPTR RESTORES POINTER. 

GISFL FRE 3C GA CPS QUTEND TESTS FOR END-OF-TEXT. 
G@G5r2 FOSB 27 8s BEQ ouT2 EXITS IF END OF TENT. 
HOS°S FOSD 8& INS INCRE. PTR TO NEXT CHAR. 
G857°4 FOSE 22 Fe BRA OuT1L GUES BACK FOR NEXT CHAR. 
HG57°9S FRAG 39 QUT2 RTS EXITS RQUTIWNE. 

G@576 * 

GOS? iF * END OF EDITOR PROGRAL 


Ga573 * 
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gaesse 
Pe’ Sg4 
vrcib2 
GUISES 
@8S84 
GaS8S 
8586 
Gags? 
G@858s 
GASES 
G@65268 
HAS21 
G@592 
BOS9S 
HG594 
@gs9s 
BOS96 
Bagg? 
BES98 
Ha539 
88688 
Gb601 
886482 
OHGEHS 
6e6H4 
@G86e05 
POGOHE 
— E7 
vEEES 
BO689 
HaELE 
88611 
Ha512 
BELLS 
68614 
BAGELS 
G8a616 
ROSLE 
@4613 
HH619 
G62 
Gee21 


b0628 
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THE. MINI-ASSENBLER 


THE MINI-ASSEMBLER IS A FINED-FIELD ONE INSTRUCTION 
PER LINE 2 PASS ASSENBLER. THE MINI-ASSSENBLER FORMAT 
IS DESCRIBED ON PAGES 9-2 AND 9-3 OF THE SPHERE 
OPERATORS REFERENCE MANUAL 

THE TWQ PASSES ARE REQUIRED TO FORM THE LABEL 
ADDRESSES. THE SECOND PASS EQUATES THE ADDRESS FOR 
LABELS REFRENCED BEFORE THEY ARE DEFINED IN THE PRQGRAN. 


ON ENTRY: 
SRCASM = ADPRESS OF SOURCE TENT TQ BE ASSEMBLED. 
BUFFLQ = ADDRESSED OF OBJECT CQDE PRODUCED 


ON EXIT: 


PCVAL CPROGRAM COUNTER VALUE) = LAST LOCATION OF 
THE ASSENBLEDR OBJECT PROGRAM. 


ALGORITHM: 


REE EEEREREREKRKREKFEHKEKREE EE EE 


*ASMBLR: SET PASS COUNT TO ZERO; SET PCYAL TQ DSTASHN; 
*ASMNLA: QPERAND YALUE FORMED IN "ONDYVAL": 

* AEGETS CHAR IN N6& COPERAND TYPED: S GETS NP 

* IF CHAR X6 IS A "B" THEN ONDVAL GETS YALUE FROM S‘'NBOL 
di TABLE ELSE ONDYAL GETS WALUE FROM RSCBIN CONVERSION: 
*SYMNBL: EQUATES SYMBOL ¢PC VALUE IS THE " " SYMBOL 
*[CLABELJ) TQ A LABEL YRLUE: 

* SYMYAL GETS PCYAL: 

* IF s€1) IS AN "=" THEN SYMYAL GETS ONDY'AL; 

* IF X¢1) IS NOT A "=" OR A SPACE THEN IF SECOND PASS THEN 
* EXIT ELSE START SECOND PASS; 

* LABEL ENTRY IN SYMBUL TABLE GETS SY'MVAL; 

*LDOP: PUT OPERATION Cope INTO THE GBJECT CODE: 

* CONVERT NCZI-NCS) INTO BINARY: 

* SAVE PCYAL: 

* Fo. BETS Ff. $i 

*OFRMD: FORM OPERAND IN QBJECT CODE: 

FORM OQNDYAL INTO FROPER SIZE BASED ON CODE IN N¢6); 
STORE NEW OFERAND WALUE IN MEMORS' 

P.C. GETS P.C. +1 UR 2; 

GET NEST LINE OF SQURCE; 

GO TQ ASMLA; 
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bU63@ FDAL 7F 6G84 ASNBLR CLR ARS INIT. PASS CTR TO FRST PASS. > 
OG631 FDA4 DE =@ ASMA LOX BUFFLOQ SETS PC CNTR TO START OF 
J8632 FDAG DF 4@ STN PCVAL OBJECT COPE. 

OP“S3 FDAS DE & LDX SRCASH LOADS ADDR FOR FIRST LINE. 
hi _34 FDRA DF El2 ASNL1A STN THPAL SAYES ADDR OF CURRENT LINE. 
G@H635 FRAC AG BE LDA A SN LOADS SYMBOL CLABELD. 

GHESE FDAE E6 Fr LDA B #18 LOADS OPERAND TYPE CODE. 
HH63" FDBG C1 48 CNP B ##°e IF @8 LOADS DATA IN SYNBOL 
HG828 FDB2 27 6B BEQ INDADR AODRESS, GUES TO SYMBL. 
88639 FDRE4 8s INS SETS INDEX TQ START OF 
0640 FDBS a8 INN OPERAND NUNBER. 

60641 FDBE Os INS 

88642 FDB? 88 INN 

H8643 FDES 88 INN 

HO644 FDBY G8 INX 

GG645 FDBA ag INN 

86646 FDBB BD FF22 JSR ASCBIN CONVRTS # TQ BINARY IN B-A. 
O8647 FDBE Df 2 ASNIB STA B  ONDYAL STORES OFERAND YALUE IN 
GG648 FOCE 9? 2B STA A ONDYAL+1 ONDYAL 

80649 * 

@G6548 * 

GHG6S1 * 

pacha * FOLLOWING FORMS THE YALUE FOR THE LABEL. 

HBESS sad 

88654 FDC2 DE Eéi2 SYMBL LDS TMP A LOADS ORIG LINE FTR INTO X. 
88655 FOC4 Ae ea LOR A GN LORDS SYMEQL LABEL). 
GH656 FDCé E6& G1 LDA B i: LOADS LAGEL CONTROL CHAR. 
gaE65" FRCS DE 44 LOX PCYAL LABEL YALWE GETS PCYAL. 
GHE58 FRCA DF 2C ST STMVAL ' 

G& 89 FRC Ct sd CNP B ##*= TESTS IF LABLE IS EQUATED 
@R660 FORCE 26 GE BNE ASN2 SKIPS IF NOT EQUATED 

@G661 FODG DE 2 LDS ONDYVAL LABEL VALUE ¢SYNVYAL) GETS 
BHE662 FOD2 DF Zl STx SYNVAL THE OPERAND YALUE 

G8662 FRD4 28 GE BRA ASHS CONTINUES EVALUATION 

HG664 FDDS Ci 2 ASN2 CNP B #F” TESTS FOR ENC-OQF-PROGRAN. 
68665 FRDS 27 EIA BEQ ASNS SKIPS IF SPACE «NOT END). 
HO6EE FODR FD 8abd ist ARS » TESTS IF SECOND FASS 

Hees" FOND 2F eit BER ASNZA EXITS IF SECOND PASS. 

HOees FODF 39 RTS ENITS THE ASSENBLER 

GiceEes FREG DF EF ASNZA STA EB ARS SETS CTR TO SECUND PASS. 
C0678 FREZ 28 C@ BRA ASM. GQES BACK FOR SECOND PASS. 
GLSPi * 

B62 * 

BOGS * 

“aerg * FOLLGWING PUTS THE LABEL WALUE IN THE S*'NEQL TABLE 
G06 * 

Gesrs FREY SP 441 ASNMS BSR STHPTR N GETS SYMSL TASL ENTRY ADR. E 
CasrPr EDEG Be 2C LOA A SYTVAL STQRES THE LAEEL 

wUSTS FRES AF Ba STH A 8&8 ADDRESS ¢StMVALO INTQ THE 
ders FOER 96 2D LOA R SYNVAL4+1 SYMBOL TAGEL 

BHESA FDEC AY B1 STA A 18 


Te 


—< 
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"8682 * FOLLOWING FORMS THE OPERATION CODE. 

BR acre cae dchdacrtg EE MGA, ef: <5 cA sen Pa nivel Fh cts tb ths fas rl aia gd Cd rar a ac Badal pins ah gra webb Daahag. han eb Scoiniwhs 

5684 FOEE DE G2 LDOP LDN _ TMPL LOADS ORIG LINE POINTER. 

¢ 35 FOF@ os INS SETS ® TO PQINT TQ 

BGE8S FOF1 @s INN THE OP CODE CHARS. 

88687 FDF2 as INN . 

88688 FDF3 A6 BG LOA A GX GETS OP CODE CHAR INTO A. 
G@G689 FDFS 81 26 CMP A #F* TESTS IF OP CODE EXISTS. 
80696 FDF? 27 GA BEQ OPRND SKIPS IF NONEXISTANT. 

8@691 FOF9 BD FF22 JSR ASCBIN CONYRTS OP CODE TO BINARY. 

G@8692 FDFC DE 4.4 LDN PCVAL LOADS POINTR TQ Q8JECT CODE. 
88693 FDFE AF eG STR A GSN STORS OP INTO OBJECT CQDE 
Bu694 FEGY as INS SETS TQ NEXT OBJ CODE LOCTN. 
68695 FEG1 DF 44 STX PCYAL SAVES P.C. POINTER. 

8696 * 

ee697 * 

BE698 * 

print : FOLLOWING STORES INTO THE OBJECT CODE THE SIZED CPERAND 
878 

68701 FE@3 DE G2 OPRND LON TMP1 LOADS SOURCE LINE POINTER. 
66702 FEOS AG OS LDA A 6:N LOADS OPERAND SIZE CHAR 
Ga7GS FEG? DE 4a LOX PCYAL LOADS N WITH OBS CODE PTR. 

60764 FEaS 81 45 CNP A #t°E TESTS LENGTH TYPE. 

80785 FEGB 2E F1 BGT RELTIY SKIPS IF AN "R" OPERAND 
@@7G6 FEGD 27 21 BEQ EXTEND SKIPS IF AN "E" SIZE OPRND. 
8707 FEGBF S81 44 CNP A #F°D TESTS IF SIZE CHR EXISTS. 
@@7@8 FE11 27 22 BEQ DIRECT SKIPS IF "D"COMND EXISTS. 
88789 * 

6°78 * 

@e_.1 * 

68712 * FOLLUNWING GETS THE NEXT LINE. 

88713 * 

@6714 FELS DE @2 ASM4¢ LDN TMP1L LOADS START OF LINE IN 
6@715 FE1S 3s ASMN4A INN ORDER TO FIND NEXT LINE. 

68716 FE16 AG FI LDA AR BSN LOADS CHAR FROM SOQRCE LINE 
@@717 FELIS 81 68 CMP A ##68 TESTS FOR A CARRAGE RETURN. 
98718 FE1A 26 FS BNE ASH4A SKIPS BAK UNTIL C.R. FOUND 
8719 FEC as INS POINTS TQ FIRST LINE CHAR. 
86720 FELD 28 8B BRR ASNLA GOES BACK TO ASS. NEAT LINE 
BA721 * 

68722 * 

68723 * 

98724 * THE FULLOWING ARE SUBROUTINES USED BY THE MAIN CODE 
68725 * 

66726 * 

@Q727 FE1F 8D G6 INDADR BSR SYMPTR GETS CONTENTS OF 

68°28 FEZ1 EE Ga LDS GN SYNBSOL LOCATION. 

88729 FE2ZS OF 2 STN OND YAL STORES AS OPERAND. 

88738 FE2S5 2@ SB BRA MBL RETURNS TO FIX LABEL VALUE. 
BE7S1 * 

8732 FE27 49 SYMPTR ASL A - MULT LABEL BY 2 TO FORM 
@8733 FEZS SF CLR B - POINTR INTOQ SYMBOL TABLE. 
68734 FE2Z9 97 E11 LOAPN STA R- TNP+1 LOADS FOINTER INTO THE 
GO725 FEZ8 D7 ea STA B TMP SYMBOL TABLE INTO X ., 


066 FE2D DE &@ LDX TMP RETURNS TO CALLER. 
pied FE2F 39 RTS RETURNS. 


~—— = 
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JOP SI 
86748 
06741 
JO742 
8074S 
887494 
BO74S 
G0746 
80747 
aar4s3 
Ga749 
80758 
O87 S51 
8G752 
GAP IS 
68754 
88755 
G6756 
G67sr 


816 


FES@ 
FES2 
FES4 
FESS 
FES? 
FES? 
FESA 
FES 


FESE 
FEF 
FEd4 


FE43 & 


FESS 
FE46 
FE4S 


PDS-V3N 
Dé 2A EXTEND LDA 
E7 o@ STA 
ag INX 
96 2B DIRECT LDA 
A? Ga STA 
ag INN 
DF 40 STN 
28 D5 BRA 
* 
as RELTIV INS 
DF 4a STS 
36 ZB LDA 
94 44 SUB 
ag DES 
Ar ea STA 
28 C3 BRA 
ee 
* END 
ot 


po DD 


ONDVAL 
GN 


ONDYAL +1 
8, x 


PCYAL 
ASN4 


PCYAL 
ONDYAL +1 
PCVAL +4 


a, x 
ASM4 


STORES HI BYTE OF OPERAND 
INTO OBJECT CODE. 

INC PC TO POINT TQ NST HD 
STORES LO BYTE OF QPERAND 
INTO OBJECT CODE. 

INC & SAVE P.C. TO POINT TO 
NEXT BYTE. 

GOES TO WORK ON NEXT LINE. 


INCREMENT P.C. PTR TQ POINT 
TO N&T BYTE & SAVE P.C.. 
LGADS LO BYTE GF OPERAND. 
FORNS RELATIVE OFFSET. 
INSERTS RELATIVE BYTE INTO 
OBJECT CODE. 

GOES TQ ASSMBL NEXT LINE. 


OF THE ASSEMBLER PROGRAM. 
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( J81 
GwGs2 
GOESS 
baas4 
8GaSs 
Baa86 
geass? 
@Gass 
abaS 
GGa36 
HaGI1 
G8G92 
GGGIS 
BOO94 
BaGIS 
@8096 
Bogs? 
BGG93 
GGG99 
60168 
B6101 
@6162 
GG183 
60104 
G6165 
GP 106 
&_ da? 
88163 
88189 
681148 
@6111 
@G@112 
G@b113 
@G114 
BG115 
Ga11é6 
68117 
60113 
ag119 
G6120 
HiLLL 
G8122 
GaLe5 
GéL24 
@g7125 
86126 
eg127 
80123 
66129 
@9136 
gG* 31 
Bo._2 
JO1L33 
66134 
MG135 
J0136 
@ 


PDS-V3N 


HEREEKEKREK KEKE KEEKEEK EK EEK ERERERE RRS REE KRREERREEERE KEEFER REKREEE 


DEBUGGER 


THE DEBUGGER FOR THE FDS SYSTEM WAS DESIGNED TO 
PROVIDE A VERSATILE TOOL FOR USE IN PROGRAM TESTING AND 
DEBUGGING. IT ALLONS FOR BREAKPOINTS. MINI-RSSEMBLER 
SYMBOL TABLE REFERENCING, STACK MANIPULATION AND 


‘ INPUT IN EITHER HENADECINAL, OCTAL OR DECIMAL. 


THE DEBUGGER PRINTS A PROMPT CHARACTER ">" ON EVERY NEW 
LINE. AN INSTRUCTION CAN BE TYPED IN WHENEVER THE CURSOR 
IS BLINKING. EXCEPT WHEN A NUMBER IS BEING TYPED IN. 

THE DEBUGGER CALLS THE EDITOR WHENEVER A NUMBER IS TO BE 
INPUT. SQ CORRECTIONS CAN BE MADE IF THE WRONG DIGIT IS 
TYPED IN. THE POINTER "PCYAL" POINTS TO THE CURRENTLY 
OPENED BYTE LOCATION. THE DEBUGGER OPERATES ON WHATEVER 
BYTE IS POINTED TQ BY PCVAL. FOR FURTHER DETAILS SEE THE 
SECTION ON THE DEBUGGER IN THE OPERATORS REFERENCE MANUAL. 


THE DEBUGGER IS IMPLEMENTED BY A SMALL ROUTINE TO SET 
UP ENTRY DEBUG) AND A LARGE ROUTINE WHICH DOES A RANGE 
COMPARE TG FIND THE PROPER COMMAND AND THEN EXECUTES THE 
COMMAND ¢RUNBUG). NOTE THAT SINCE COMMANDS ARE 
DIFFERENTIATES BY RANGE. ANY KEY STRUCK WILL PRODUCE 
A COMMAND EXECUTION. SUCH AS A "," BEING INTERPRETED 
AS A "+" COMMAND 


COMMANDS: 


“C.K.” LINE =~ PRINTS “2° GUT ON Ai NEW LINE. 

" " CHANGE - THE SPACE COMND CHANGES CONTENTS FROM ¥ TO 2. 
“#" OPNNST - OPENS NEXT LOCATION 

"~" OPNFRE - OPENS FREYIOUS LOCATION. 

"TB" BRKSET - SETS A BREAKPOINT AT THE OPENED LOCATION 
"tC" CLRERK - CLEARS BRKPOINT. MUST BE DONE BEFORE ENTT. 
"TE" ESIT ~ PERFORM RTI - EXECUTE AT BRKPOINT LOCATION 
"tG" GOLOCN - STARTS EXECUTION AT QPENED LOCATION 

"tI" JUMP - JUNP TQ USERS SUEROUTINE. 

"tO" OPNLOC - QPENS LOCATION THAT IS TYPED IN AFTER "QQ" 
"TR" OPNREG - QPENS THE TOP-OF-STACK LOCATION. 

"TS" SETSTE - SETS THE STRCK TO THE OPENED LOCATION. 


"2T® GFNTEL OPENS LOCATION IN SYMBQL TRELE OF NENT CHR 
"f¥" GOENEC - ESITS THE DEBUGGER - GOES BACK TO EXEC. 
SUBROUTINES: 

INPCHR INPUTS A CHAR. INTO A AND PRINTS IT 


INPNUM - INPUTS A NUMBER INTO B-A FROM THE KEYBOARD. 

PNTBYT - PRINTS ACC A AS 2 HEN DIGITS ON THE SCREEN 

PNTOIG - FRINTS 8-A AS 4 HEX DIGITS ON THE SCREEN. 

NEWLIN - PRINTS A C.R. AND RA ">" ON THE SCREEN. 

DSPADR - PRINTS BYTE ADDRESS ¢(XXXX) AND BYTE CONTENTS (¢Y'¥) 
AS OXNSK Y's’ ON THE SCREEN. 


a ee 
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(138 FE4A ORG $FE4A 
Wa1s9 * 
661448 * 
a0144 # 
60142 # FOLLOWING IS LOCATION OF ENTRY OF THE BRKPT VECTOR. 
@0142 * 
98144 FE4A 30 BKENTR TSX INDEX GETS STACK POINTER 
88145 FE4B E6 GIS LOA B SN LOADS HI RETURN ADDRESS. 
@0146 FE4D AB a6 LOPAR A GS LOADS LOW BYTE OF ADDRESS 
80147 FE4F 3@ &i1 SUB A #41 SUB 1 FROM RETURN ADDRESS. 
g0148 FES1 C2 610 SBC B #8 
0149 FES? EF aS STAB &N RESTORES RETURN ADDR. TO 
@G150 FESS AF bs STA A GN THE BREAKPOINT LOCATION 
@G151 FES? 26 GB BRA DEBUG GOES TO THE DEBUGGER. 
G0152 * 
80153 # 
@0154 FES9 $1 GD LINE CMP A ##0D TESTS FOR ACR. ¢LINED. 
@G155 FESB 2D FD BLT JIMPLCN GOES TO “JISR* (fT) ROUTNE 
88156 FESD 2E 4£ BGT OPNREG  SKIFS FOR NEXT ¢fR> TESTS 
8@157 FESF BD FCCE ISR SUB32 MOVES CURSOR UP ONE LINE 
@G158 FES? 31 POPLIN INS CLEANS UF STACK FOR 
88159 FEES 34 INS DISPLAY OF CR. > 
90168 ‘* 
OG161 * 


@6162 FE64 80 6 DEBUG BSR NEWLIN PRINTS "CLR. >". 
‘tes FEé6é6 SD 9 PBUGL &5R INPCHR READS IN COMMAND. 


beiéd¢ FESS BO FCAS JSR RTARRO INSERT BLANK 
H6165 FE6B DE 48 LDS FCYAL LOROS CURRENTLY OPENED LOC. 
68166 FES&D Sb a9 BSR RUNBUG EXECUTES DEBUG COMMAND. 
GGier FE6F 28 FS BRA CEUGL GOES BACK FOR NEST COMND 
G8168 * 
bBLE9 + 
@6170 FE?1 Bl FC4A INPCHR JSR GETCHR READ IN CHAF INTO A. 
POLFrL FEr4 BR FCEC JSR PUTCHR CISPLAYS CHARACTER 
60172 FE? s3 RTS RETURNS TO CALLER 
HAL? Ss . 
60174 * 
@6175 - 
C8176 FETS 81 G3 RUNBUG CNP A #EAS TESTS FOR A “tG" COMMAND 
BG177? FEFA 20 35 BLT EFRKSET SKIPS IF AD "TB" CoM HIRND 
6@17°8 FEC 2& 45 BGT ExXif SK car 

2 Ae = SLREERK LDN SEK ROR S an 
G5i65 FES SE ZB CERPRS CES ag BEKESD . 55,08 Bee: 
C81S1 FESS Ar ea STR A GLX RES BYTE 
@G192 FES4 20 &e BRA DSPROR GOES TO OPEN THE LOCATION 
BLES 4 
OOLS4 * 
OGLSS FESS SL z CHANGE CNP A At” TESTS OFR A SPACE CONMNE. 
88136 FES3 20 12 BLT ENECTY SKIPS TO EXIT BACK TO ENEC. 
HOLS? FESA 2E a9 BGT QPNFRE = SKIPS FOR OTHER CNND TESTS 


“488 FE8C SD Si SPACE BSR INPNUM INPUTS NEW BYTE CONTENTS. 


rw L899 FESE DE 40 LOW PCYAL LOAOS OFENED BYTE LOCATION. 
gei5e FE98 ATF Ee : STA A GNX STORES NEW BYTE CONTENTS. 
eHeIL Of * 

- 428192 . ste a 
“OL93 FE92 9g OPNNST INS FORMS NEXT LOCATION ADDRES. 
a194 FESS 20 Si7 BRA OSPADR GOES TQ OPEN LOCATION BYTE. 


a 
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ac oS FESS 81 2D  OPNPRE CNP 
Hiss? FES? 2D F9 BLT 
go198 FE99 a9 DEX 
6@199 FESA 2a Sea BRA 
Baza * 
Hecel * 
og202 FE9C 1 ENECTY INS 
B22 FESD 3: INS 
@o9204 FESE FE FC14 IMP 
eazes * 
gazes * 
00207 FER1 Aé6 €1@ BRKSET LDA 
@9208 FEAST 97 ZE STA 
Oa269 FEAS DF =e STN 
68210 FEAF 86 =F LDA 
O8211 FEAS AF Fe STA 
G@a212 FEAB 28 ES BRA 
HG212 * 
80214 * 
68215 FEAD 81 12 OPNREG CMP 
@0216 FEAF 2D GIA BLT 
GA217 FEB1 ZE 1.9 BGT 
68218 FEBS = TSN 
G8219 FEB4 as INS 
80226 FEBS a8 INN 
G4721 FEBS 26 34 BRA 
6 2 * 
GGzZ25 * 
@0224 FEBS 35 SETSTK TSS 
88225 FEBS 28 FS ERA 
88226 * 
80227 * 
@4228 FEBB SD z7 OPNLOC BSR 
86229 FEBD OF 48 OPNLC1 STA 
@923G FEBF 37 4-4 STR 
G@A231 FECL 28 ZB BRA 
Ha232 * 
Ga233 * 
@8234 FEC? $1 7 EXIT CHP 
68235 FECS 27 11 BEA 
Q9226 FEC? 2E 50 BST 
OG237 FECS 31 INS 
08233 FECA 341 INS 
O9239 FECB 3B RTI 
C8240 * 
dogs * 
C3242 FECC 81 14  OPNTBL CMP 
LUL+>S FECE 2D ES ELT 
C0244 FEDO 2E Bs BGT 
C8245 FEDZ SD sip) BSR 
COL40 FEDS 49 ¢f : foe 
2 S$? FEOS SF VDAVES oc*ELR 
Rotc43 FEDS 20 ES (eS BRA 
Ca 49 re a 
3250 * 
mr! FEDS 31 GOLOCN INS 
JdeSe FEDI 31 INS 
HL5I2 FEDA SE @@  JMPLON JNP 


A 


DD DD 


#e°- 
OPNNST 


DSPADR 


EXEC 


aN 
BRESAY 
ERKAOR 
#ESF 
GW 
POPLIN 


##12 
OPNLOC 
QFNTBL 


OSPADR 


DEBUG 


INPNUM 
PCYAL 

PCVAL +1 
DSPARL 


#05 
GULOCN 
LINE 


#F14 

SETSTK 
CHANGE 
INPCHR 


OFNLC21 


&. 8 


TESTS FOR A "-" COMMAND. 
SKIPS FOR A "+" COMMAND. 
FORMS PREY. LOCATION ADDR. 
GOES TO OPEN THE LOCATION. 


CLEANS UP THE STACK. 
RETURNS TQ THE EXECUTIVE. 


LGROS DATA OF OPNED LOCATN. 
SAVES DATA OF OPNED BYTE. 
SAVES ADDR. OF BREAKPOINT. 
LORDS SOFTWARE INTUP COMND. 
SETS AN SHI AT OPNED BYTE. 


GOES TO NEST LINE FQR COMND 


TESTS FOR "TR" CSTACK TOP>. 
GOES TO OPEN A LOCATION. 
SKIPS FOR NEXT TEST ¢fT). 
OPENS TOP-OF-STACK. 

PCYAL GETS STACK POINTER. 
(CLEANS UP THE STACR). 

GOES TO DISPLAY THE T-d-5S. 


STACK POINTER GETS PCV¥AL 
RETURNS TQ INPUT COMMAND. 


LOADS A i6 BIT NUMBER. 
STORES NEWLY OPENED 
LOCATION ADDRESS. 

DISPLAYS CONTNTS GF LOCRTN 


TESTS IF AM EXIT CTE) COND. 
SKIPS FOR THE “GO" COMMAND 
SKIPS FOR NENT COMNMD TEST. 
CLEARS UP THE STACK. 


RETURNS FRON BREAKPOINT. 


TESTS IF A "tT" CTABLED. 
GOES TQ SET STACK PTR ¢f5). 


SKIPS FOR NEXT TEST ¢SPACED. 


LOROS A WITH SYMBOL ¢LABLD. 
ALIGNS ADDRESS FOR 

SYMBOL TABLE ENTRY. + 
SAVES AND DISPLAYS ADDRESS. 


CLEANS UP THE STACK 
JUMPS TO USERS PROGRAN. 


KK 
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W255 - 
86256 * FOLLOWING ARE SUBROUTINES USED BY THE DEBUGGER. 
6257 * 
G@G@258 FEDC Sé €1ID NEWLIN LDA A #FED LOACS A CARRIAGE RETURN. 
@G@259 FEDE 8D =E BSR PNTBF1 PRINTS A CARRIAGE RETURN 
GG@26G FEEG 36 SE LDA A #*D LOADS A PROMPT CHARACTER. 
poe FEE2 28 =A n BRA PNTBFL BISPLAYS PROMPTER CHAR. 
9262 
OG263 7” 
raed a FOLLOWING INPUTS Ae16 BIT NUMBER INTO THEE BA REGISTER. 
a2 ~’ : 
66266 FEE4 BD FC?S INPNUMN JSR EDITIN INPUTS A STRING OF DIGITS. 
GG267 FEE? DE 24 LON SCNPTR LOADS ADDR. OF FIRST DIGIT 
HG26S FEES SDB 37 BSR ASCBIN CONYERTS TQ BINARY # IN BRA. 
@G269 FEEB 39 RTS RETURNS TO CALLER 
GG27 sd 
66271 * 
sae : FOLLOWING DISPLAYS THE LOCATION ADDR. & CONTENTS. 


G@G274 FEEC DF 48 DSPADR STN PCYAL SAYES OPENED LOCATION RDDR. 
OG275 FEEE 8D EC DSPADL BSR NEWLIN PRINTS FR °C. RR." AND ">". 


@0276 FEFA 8D GIR BSR PNTIDIG FRINTS QUT "PCVAL" IN HEX. 

60277 FEF2 8D FCAS JSR RTARRO PRINTS A SPACE. 

80278 FEFS DE 48 LDN PCVAL LOADS FTR. TO OPEND LOC. 

PA279 FEF? AG EIA LDA RA GN LOADS DATA FROM LOCATN. 

jp 288 FEFS 8D EI7 BSR PNTBYT  FRINTS DATA IN HES FORMAT. 

@@281 FEFB 29 RTS RETURNS TQ INPUT COMMAND. 

GG282 * 

@G283 * 

@8284 FEFC 96 48 PNTDIG LDR A PCYAL PRINTS THE 2 HI HEX DIGITS 

@a285 FEFE SO &2 BSR PNT8YT OF OPENED ADDRESS 

G@286 FFAG 396 41 LDA A PCVAL+1 FRINTS OUT 2 LOW HEN DIGITS 

48287 * 

ah288 * 

ga283 * FOLLOWING PRINTS QUT 2 HEN DIGITS 

9a298 * 

@9291 FFG2 CE £918 PNTBYT LDS #16 LOROS 16 FOP BASE. 

@G292 FFAS BF Ei4 STS ARB STORES FOR CONVERSION 

G@G293 FFa? SF CLR B - CLEARS HI 2 DIGITS 

p33 FFOS CE 35 LOX #IOBUFF LOADS GUTPUT BUFF ADDRESS 

BO296 * 

88297 * FOLLOWING CONVERTS SYTE TQ HEN WITH LEADING TEROS 

862398 * 

98299 FFG8 D? z6 CONVRT STA B IOBLIFF+1 CLERS 8YTE FOR SECOND DIGIT... 

o828a FFOD BD FFE4 JSR BINASC CONYERTS TO ASCII DIGITS 

OG2G1 FF1a 96 =5 LOA A IOQ8UFF  LoApS HI OIGIT 

OG202 FF12 De TE LOA B ICBUFF+L TESTS BOTH DIGITS CONVTD 

BB2AF FF14 26 Ei4 BNE PNTBUF  SSKIFS IF BOTH DIGITS CONYTDaezZa4 FFIé 

97 Ferrio 19 30STA A ITOBUFF+1 SETS UP LOW DIGIT. 
__ 3305 FF18 86 36 LDA A #F°R HIGH DIGIT GETS A "g". 

10286 * 2 
2 ga0s07 FF1A SD @2 -PNTBUF BSR -PNTSFL PPINTS QUT HI DIGIT. oe 
~“gazags FF1C 96 36 LOA A IOBUFF+1 LORDS LOW DIGI 

J03@9 FF1E 8D FCBC PNTBF1 JSR PUTCHR = DISPLAYS CCHARACTER. ® 

GG310 FF21 39 RTS RETURNS TO CALLING PROGRAM. 


6311 * 
aAaz1is * FND OF DEBUGGER 
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98314 
A315 
RAZ16 
Asi? 
“Baz18 
G@G319 
8328 
G8321 
GO322 
88323 
66324 
@8s25 
@4s26 
66327 
—8Os28 
GA329 
GO336 
OG331 
GAS32 
GASSES 
GG334 
G88S35 
OO326 
BHS37 
GB8S3E 
BHI33 
GO348 
Ba341 
~W42 
~IS4S 
68244 
88345 
Ga346 
68347 
68343 
GA349 
88358 
CO351 
G8HsS52 
@as5s 
68354 
88355 
88356 
89357 


68358 


PDS.-YSN 


UTILITY PROGRANS 


ASCII TQ BINARY CONVERSION. 


THE ASCII TQ BINARY ROUTINE CONVERTS FROM AN ASCII 
NUMBER STRING POINTED TQ BY & TQ AN UNSIGNED 16 BIT 
BINARY NUMBER IN BRA CACC B HAS THE HI BYTE: ACC A HAS 
THE LQ BYTE>. THE ASCII STRING IS TERMINATED Bi' A NON 
HEXADECIMNAL CHARACTER. UPON EXITING. THE INDEX REGISTER 
WILL POINT TQ THE NENT CHARACTER AFTER THE NUMBER 
STRING. THE BASE OF THE NUMBER STRING IS PASSED TQ 
THE ROUTINE IN ARA CRRA IS THE ARITHMETIC REGESTER A 
LOCATED IN BYTES G6 AND &F? OF LOW MEMORY). IF THE 
ROUTINE IS ENTERED WITH A KNOWN BASE, PUT THE BASE 
CBETHEEN 2 AND 16) IN ARA AND ENTER THE ROUTINE AT 
THE ENTRY POINT ENTR2. 


KEKERHRFAEEFKEKE KEE KRKR EEE EE 


CONVERSION FORMULA: 

* ASCII NUMNBBER STRING NU4]. NCSI. 8€21, 801] IN 
*BASE Y's 

* BINARY NUMBER = 


- ACH IFPPSENCSIFYPLANC2ZI*S TL tx C1 I ¥y 78 OR 
* BINARY NUNBER = 
1 CCCBRYEST AT FVENO SID ¥EYAN C2 ID EV ANC LI 


*WHERE f IS THE EXPONENT OPERATOR, 
* S IS A CHARACTER & Y IS THE BASE. 
* 


5 

* 

* ALGORITHM: 

*ASCBIN: FORM THE BASE IN ARA BASED ON THE FIRST CHAR. 
* OF THE NUMBER STRING: INCREMENT CHAR. PTR. IN X: 
#ENTR2: NUNBER CIN BA) GETS 2: 

#NXTCHR: IF THE CURRENT CHAR. POINTED TO BY X IS NOT A 
DIGIT THEN EXIT ELSE INCREMT CHARACTER PTR IN INGEN: 
CONVERT DIGIT TQ SINARY: 

NUNBER GETS NUNBER * BASE: 

NUMBER GETS NUNSEP + DIGIT: 

GO TO OPERATE ON THE NEXT DIGIT (NSTCHR): 


REX EF 
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GEs68 
GGS61 
A362 
GOs6s 
89364 
BLES 
OG366 
BAsSé6F 
BYS68 
BGI69 
6378 
6371 
88372 
GG37S 
8374 
GOS75 
B8S7E 
GOS" 
@8378 

373 
e388 
OGsS31 
G@8@382 
GGS83 
88384 
B8385 
Gasse 
eas337 
BASSES 
BOSSI 
BG3399 
GEsP1 
C8392 
GASIS 
Ga394 
Ga>35 
GE396 
GAI37 
BAI393 
BASSI 


863 


FF22 
FF24 
FF26 
FF28 
FF2A 


FF2C ; 
FF2E : 


FF3a 
FF34 
FFS3 
FF35 


FF 3? 
FFS8 
FFS9 
FFSB 
FF Sb 


FFSE 8 


FF 4a 
FF42 
FF44 
FF46 


FF4S § 


FF4A 
FF4C 
FF4E 
FFSO 
FFS52 


FFS54 


FF58 3 


FFS7 


FFS9 ¢ 


FF58 
FFSD 
FFSE 
Frew 
FF62 
FF6s 
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AG 
81 


ea 


ASCBIN LDA A 


OCT 
ASCIL 


HEX 
ASC2 
* 

* 


ENTR2 


NSTCHR 


ASCS 
# 


FENIT 


CNYASC §S 


CP 
BLT 
BGT 
LDA 
BRA 
LDA 
INS 
BRA 


A 


> DD DBD DD DVD BDHDWMD Dw 


ey) 


DD 


a. 
HF”. 
OcT 
HEX 
#14 
ASCI 
#3 


ASC2 
#16 
ARG 


NUMBER 


AEN IT 
OIGIT 


THP 


MULT 
DIGIT 
#u 

ThiP 

AN TCHR 


GETS CHR TO FORM BASE. 
TESTS FOR DECNL STRNG. 
SKIPS IF BASE G <*), 

SKIPS IF BASE 16. 

LOADS BASE 1@ FOR CONYERSN. 
SKIPS TQ INC. TEST POINTR. 
LOADS BASE 8 FOR CONVERSION. 
INCREMENT PTR TO NEXT CHAR. 
SKIPS TO SAVE BASE. 

LOADS BASE 16 FOR CONVERN 
SAVES BASE IN BASER. 


GETS 8. 

CLOW NUMBER ON STACK). 
CLEARS HI OF BASE. 

GETS CHAR TO CONVERT. 

INC TQ NEXT CHARACTER. 
TESTS FOR END-OF-STRING. 
EXITS IF END 

FORMS 8. C.D. NUMBER. 
TESTS IF DECIMAL DIGIT. 
SKIPS IF DECIMAL. 

TESTS FOR END OF STRING. 
EXITS IF NOT A HEN DIGIT. 
FORMS A HENS B.C. D. BIGIT. 
TESTS FOR END-OF-STRING 
EXITS IF CHAR > “F" 
SAVES CIGIT FOR ADD. 


SAVES INDEN REG FOR MULT 
RESTORES LO OF "NUMNEER" 
NUMBER GETS NUMBER * BASE. 
NUMBER GETS NUMBER + DIGIT. 


SAVES LQ OF NUMBER 
RESTORES STRING POINTER 
GUES TQ CONYRT NEXT CHAR. 
RESTORES "NUMBER" IN 6H 
RETURNS TQ CALLING PROGRAM. 
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404 
be 4 82 
ee4das 
Aa4e4 
eodas 
vedas 
08407 
08488 
Gea4dag 
63418 
be41il 
86412 
gadis 
08414 
6841s 
66416 
60417 
60418 
60419 
68428 
C6421 
68422 
@8425 
Ba424 
60425 
60426 


127 


a9 


PDS.-VYIN 


uu428 FFE4 DF 


88429 
88436 
C8431 
88432 
GG433 
@8434 
GHdS5 
UIdse 
O47 
G0438 
G8439 
0448 
Had4d 
dasd2 
@Adds 
HO444 
G2445 
80446 
00447 
CE443 
Ha449 
88458 
8a451 
£ 1§2 
-rer4 5S 
68454 
A455 
8456 
88457 
80458 


FF66 
FF67 
FF68 
FF6H 
FFEC 
FF6E 


FFre & 


FF72 
FFI4 
FF76 
FFF 
FF79 


FFTA : 


FFFC 
FFFD 


FFFF 
FF81 


FF&2 « 


FF83 
FFS5 
FF&6 
FF S83 
FFSR 
FF&C 
FFSE 
FF9a 
FF941 


34 
3a 
6F 


B 


#6 


* 
* 
x 
*x 
* 
* 
Bd 
* 
* 
* 
* 
* 
* 
* 
* DIVISION. THE LOW ORDER DIGIT IS FORMED FIRST. THE 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
B 


BINARY TQ ASCII 


THE BINARS' TQ ASCII CONVERSION ROUTINE CONVERTS 
A16 BIT BINARY NUNBER IN THE BA REGISTR (REG B & REG AD 
TO A STRING OF ASCII DIGITS. THE ASCII STRING CAN SE IN 
ANY BASE FROM BASE 2 THROUGH BASE 41. THE YALUE OF THE 
BASE IS LOCATED IN THE ARITHMETIC PSEUDQ-REGISTER ARB 
CARB IS LOUCATED IN BYTE ARS CLOC 4] AND AR2 CLOC 35]). 
WHEN THE ROUTINE IS ENTERED. THE POINTER TO THE QUTPUT 
LOCATION IS PASSED IN THE INDEN REG. WHEN THE ROUTINE 
EXITS, THE INDEX POINTS TO THE LAST DIGIT IN THE STRING 
PLUS ONE. 

CONVERSION IS DONE BY’ THE METHOD QF REPEATED 


DIGITS ARE THEN PLACED ON THE STACK UNTIL CONVERSION IS 
COMPLETED. THE DIGITS ARE THEN POPPED OFF THE STACK 
AND PLACED IN THE QUTPLIT STRING. THE TOP-OF-STACK I5 
INITIALIZED TO HEX FF TO TELL WHEN ALL THE DIGITS 


HAVE BEEN POPPED OFF THE STACK. AFTER THE DIVISIGN. THE 


DIGIT ¢THE RENAINDER OF THE DIVISION OPERATION) 

IS LOCATED IN THE AR & PART OF ARA (BYTE 7). WHEN 

THE QUOTIENT OF THE DIVISION IS @ THEN THE CONVERSION 
IS COMPLEATED. 


INASC ST* TMP SAYES OUTPUT POINTER. 


DES “SETS THE TOP-GF-STACK TO 
TSS “ALL ONES TO TELL END OF 
CLR a. 8 “CHAR STRING ¢LAST CHAR IS 
COM G8 “PUT ON STACK FIRST). 


INI LDX ARB 
STX ARA 
ESR DIVIDE * QUOTIENT IN BA GETS THE 

REMAINDER OF # TO BE CONVERTED; REMAINDER IN ARA GETS 


RESTORES DIYISOR (BASE). 


* THE LOW ORDER DIGIT. 
STA A TMPL SAVES A OF BR 
LOA A ARD LOAD DIGIT (REMAINDER). 
PSH A - STACK DIGIT (REVERSE ORDER). G 
LOR A TMP4 RESTORES A OF BA 
TST A 7TESTS IF QUOTIENT IS = @ 
BNE BIN4 @CSIGNIFYING THAT 
TST B - “THE CONVERRSION 
ENE BIN4 “IS DONE). 
Me 
BINSTR LDX TMP RESTORES OUTPUT POINTER. 
BINS PULA - UNSTACK A DIGIT. 
TST A - TESTS IF NEG <END?). 
BPL BIN4 SKIPS IF A DIGIT. 
RTS EXITS FROM SUBROUTINE. 
BIN¢ CMP A #9 TESTS IF RESULT IS HEX. 
BLE — BINS SKIPS IF DIGIT NOT HEN. 

_ ADD A #7 FORMS HEN VALUE OF DIGIT. 
BINS ADD A #0 FORNS DECIMAL CHARACTER 
STA A &X OUTPUTS CHARACTER 

INS POINTS TO NEXT CHARACTER. 


BRA BINS GOES BACK FOR NEXT DIGIT. 
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GO473 
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88437 
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68491 
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GE493 
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CxS 


@G499 FFSS 
GG499 FFI4 


gaze? Frss 


@0502 FF99 « 
@4563 FF99 § 
@0504 FF9A = 


68585 FFSB 


Ga5u6 FF9SC £ 


vase? FFSD 
@8508 FFOF 
88509 FFAL 
G@518 FFAS 
96514 FFAS 
JO512 FFA? 

512. FFAS 
~w514 FFAB 
8515 FFAC 
88516 FFAD 
@0517 FFRE 
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MULTIPLY ROUTINE 


THE NULTIPLY’ ROUTINE MULTIPLIES TWQ 16 BIT BINARY 
NUMBERS TOGETHER TQ PRODUCE A 16 BIT RESULT. THE BA 
REGISTERS AND ARA CBYTES 6 & 7) REGISTER ARE USED. 
THE CONTENTS OF ARA ARE UNCHANGED UPON PROGRAM ESTIT. 


BA GETS BA * ARA 


MULTIPLYING IS ACCOMPLISHED BY REPEATED ADDITIONS 
OF ONE OF THE OPERATORS (OPERATOR ARA)D INTO THE RESULT. 
THE RESULT STARTS OUT WITH A ZERO YALUE AND IS SHIFTED 
OVER ONE AFTER ERCH ADDITION. THE HIGHEST ORDER VALUE 
IS ADDED IN FIRST AND THEN. GOING TQ THE RIGHT. 
€THUS SHIFTING THE ANSWER LEFT GNE TO BRING IN THE NEXT 
RIGHTMOST DIGIT) GETTING THE NEST LOWERNOST SIGNIFICANT 
DIGIT. THE NENT RIGHTMOST BIT OF THE OTHER OPERAND 
(THE ONE ORIGINALLY IN BAD IS TESTED, AND IF ONE, 
‘ ANOTHER ADDITION TAKES PLACE. THIS IS REFERTED UNTIL 
THE FINAL SUM IS FORMED. 


MULTIPLY’ ALGORITHM: 


KFHRERKFE SEER EKEKRKREEKEKR EERE KE 


*MULT: STACK BAs BA GETS @; SET COUNT YALUE TO 16; 
*MUL1: SHIFT BA LEFT i 

* SHIFT LEFT ORIG BA YALUE ON STACK INTO CARRY: 

* IF CARRY = & THEN GO TO MUL2 

* BA GETS BA + ARA; 

*MUL2: DECREMENT COUNT; 


* JF COUNT # @ THEN GO TO MUL1 ELSE ENTT. 
* 
* 
* 
ok 
MULT PSH A - FUTS THE ORIGINAL CONTENTS 
PSH B - UF BA ONTO THE STACK. 
bE A #16 LOARS COUNT VALUE 
SHA = UNTO THE STACK. 
CLE A = BA GETS ZEROED. 
CLF B 
TSN SET INDEX TO STACK. 
AULA SL AH - SHIFT LEFT EA 
ROL & 
ASL eu SHIFTS GRIG. BA OPERAND 
ROL 1:8 ONE LEFT INTO CARRY’ 
BCC MUL2 SKIPS ACDING IF CARRY = &. 
ADD A ARB BA GETS 8A + ARA. 
ADC B ARI ~ 
MULZ DEC as TESTS IF DONE. 
< & pie ar MUL1.-.-.-..GOES BACK. IF NOT DONE. . .- ' Brattice 
INS CLEANS UP THE STAEK. % 
INS ad 
INS 


RTS EXITS ROUTINE. 


¢ 
68519 


* DIVIDE ROUTINE 
ease * 
86521 * THE DIVIDE SUBROUTINE DIVIDES THE 16 BIT NUMBER 
88522 * IN THE BA REGISTERS BY THE 16 BIT NUMBER IN THE PSEUDO 
GA523 * REGESTER ARA CLOCATED IN BYTES 6 & 7). UPON EXITING: 
GAS24 * BA WILL CONTAIN THE QUOTIENT OF THE DIVISION AND ARA 
525 * WILL CONTAIN THE REMAINDER. THE DIVIDEND BA IS DIVIDED 
Ga526 * BY THE DIVISOR ARA CI. E. B8AARA ?. 
80527 * 
bUS23 ¥ 
68529 * 
8H538 * 
GESS1 * DIVIDE ALGORITHM: 
8AS532 * 
GBG533 *DIVYIDE: N3.4 GETS BA (BA IS PUT ON THE STACK): 
bE534 * Nl. 2 GETS THE 16 BIT ARA YALUE CARA PUT ON THE STACK), 
88535 * COUNT GETS 1 + THE NUNBER OF NONSIGNIFICANT BITS IN 
BAS36 * THE DIVISOR CLEFT JUSTIFY N1.2 TQ FIRST 1 BIT. CQUNT 
G53" * GETS 1 + THE # OF LEADING ZEROS IN N1.2] CCOUNT WILL BE 
@G538 * FROM 1 TO 1771: 
88539 * BR GETS N3.4 [RESTORES BAI; 
8a54a * 3.4 GETS @ CINITIALIZES THE QUQTIENTI; 
HO541 *DIVYS: 8A GETS BA - Ni, 2: 
@0542 * JF THERE WAS A BORROW CI. E. DIVIDEND IN BA < DIVISOR 
GO543 * IN 1,2 CRRA] THEN BA GETS BA + X1.2 CORIGINAL BA 
baS44 * WALUE RESTORED] & CARRY CLEARED ELSE CARRY IS SET; 
66545 *DIVYS: 3.4 CQUOTIENT] GETS CARRY LEFT SHIFTEO IN; 
68546 * N1.2 [BDIVISGR] GETS SHIFTED RIGHT QNE PLACE WITH ZERO 
Ba547 * FILLED IN FROM THE LEFT SIDE; 
66548 * DECRENENT CQULINT: 
8as49 * EXIT IF DONE ELSE GO TO DI¥3: 
Passe * 
551 * 
883552 * 
Ga553 * 
BeSS4 * 
GES55 FEAF 3é DIVIDE PSHA - LOAOS DIVIDEND INTO X38. 4. 
BHSS6 FFBG 37 FSH B 
@G@557 FFB1 96 FG LDA AR ARI LOAPS DI¥ISOR FROM ARA 
@GS53 FFRS Dé Et? LDA B ARG 
GG559 FEBS 37 PSH GB - PUTS DI¥YISOR INTO X1,.2 
G@955@ FFeS 36 PSH A 
@OS61 FFB 34 DES SET UP SPACE FOR COUNT 
68562 FFBS 3a TSX INDEX GETS STACK POINTER 
8563 FEBS Sé Eil LDA A #1 INITIALIZE COUNT. 
Qu564 FFBB 6p Ell TST 1. TESTS FOR HI DIVISR BIT ON. 
COSS65 FEED 2B GB BAT DI¥2 SKIPS IF ON 
WUS66 FFBF 4C DIVi INC A - COLINTS LEADING ZEROS. 
@8567 FFCE 68 2 ASL 2s LEFT JUSTIFIES 1.2 
WHS6S FRCS 69 elt ROL 1.8 
DASc2 FFC4 SB El4 BNI OIv2 SKIPS IF NO LEADING ZERO 
Gas7re FRCS S81 Li CNP A #17 TESTS FOR ALL EERO DIVISOR. 
J83571 FFCS 26 FS BNE DIVL GUES BACK IF BITS LEFT 
GG5r2 FFCH AF fia OI¥v2 STH A GS SETS COUNTER. 
GdSFPS FFCC Ee Els LOA B 3.8 BA GETS ORIGINAL 
O5°4 FFCE AG EI4 LDA A 4. -DIVYIDEND VALUE. 
POSTS FFDG@ oF EIS CLR ae CLEARS Ns. 4 FOR FORMATION 
—_ 56 FEDS OF El4 CLR dN OF THE QUOTIENT. 
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FFD4 
FFDS 


FFDE 3 


FFDA 
FFDC 
FFDE 
FFDF 
FFE1 
FFEZ 
FFE4 
FFEG 
FFES 
FFER 
FFEC 
FFEE 
FFF 
FFF2 
FFF S 


FFF4 = 
FFFS = 


FFFS 
FFFF 


FFFS 
FFFA 
FFFC 
FFFE 
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Ae 
E2 


be 
€i1 
Ely 
EZ 
ei 


G1 


kid 
cis 
Eid 
EZ 
ea 
E.6 
EG 
EF 


8104. 
FE4FI 
8ias 
FCHE! 


DI¥s 


DIV4 
DIYS 


SUB 
SBC 
BCC 
ADD 
ADC 
CLE 
BRA 
SEC 
ROL 
ROL 
LSR 
ROR 
DEC 
ENE 
STA 
STR 
INS 
INS 
INS 
PUL 
PUL 
RTS 


FRB 
FDB 
FDB 
FOB 


IM 


STQRES 


#0104 
BKENTR 
#5188 
#FCRE 


START OF DIVIDE LOOP 


SKIP IF DIVIDEND ¢ DIVISOR. 
RESTORES DIVIDEND IN BA. 


CLEARS THE CARRY. 

SKIPS WHITH CARRY CLEAR 
SETS CARRY TO 1. 

SHIFT CARRS’ INTO 
QUOTIENT XS. 4 

SHIFTS BI¥VISOR N1,2 
RIGHT ONE. 

DECRENENTS COUNTER. 
GOES BACK IF NOT DONE. 
STORES REMAINDER IN ARR. 


CLEANS UP THE STACK. 


QUOTIENT IN BA. 
EXITS ROUTINE. 


INTERRUPT REQUEST VECTOR. 
SOFTWARE INT. VECTOR ADDR. 
MOM-MASKABLE-INT. ¥ECT. 
RESTART VECTOR ADDRESS. 


OF FOS SOURCE LISTING. 


END 
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THE PROGRAM DEYELOPNENT SYSTEM CPDS SYS2A) IS RB SET OF 


aS 
sa 


& 

27 

Ze PROGESNS RESIDING ON ERASABLE PROGRANMASLE READ ONLY 
i 29 MEMORY WHICH ALLOW EVEN THE SMALLEST USER TO USE HIS 
eis SPHERE SYSTEM AS 9 COMPLETE COMP Sy 
BAAR: DEVELOPMENT OF COMPUTER SROGRANS. 
8 TOWED THIS ENG. THE §S BOS EP OOM AIN # 
HEAZ2 BASED ERITOS. & MINI-ASSEMBLER. AND THE SPHERE I 
Palas Af (S042, AS WELL AS 4 SET OF UTILITY ROUTINES TO f0 4é 
BOETS- BIT MULTIPLY AND DIVIDE, ASCHI-TO-BINSRY. PND - 
BaP S BINARS TO-ASCII ROUTINES. AND ROUTINES TO oo 
AaGSF INPUT AND OUTPUT TO THE AUDIO CSSSETTE 
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HES a MEMORY MAP 
GHABGS * 

TMP FOU 5 057) 

THP 4 EQ £H2 

ARE EU Fad dé BIT ACC. PSEUDO REG B. 
ARS Ei tH4 ~HI ESTE OF ARB. 

ARS EOL #5 -LO BYTE OF HEEB. 

HRA EQu F565 16 BIY ARITH FSEUDO REG A. 
AFL Ertl #56 -HI @S'TE OF HARA 

ARG EQU 2aF «i BYTE OF ARA 

OIGIT Eli FHS BYTE USED BY ASCEIN FOR TMP 
CSTATS EDU #03 CASSETTE i-0 STATUS &r'Té, 
DUTEND EDU ¥6A END OF OUTPUT BUFFER TENT. 
BUFADR Eu For START OF Jt) BUFFER <PTRo 
BUFEND Ebitt FHL PTR. TQ END OF JI.0 BLUFFS. 
DUTBUF Ei #14 START OF OUTPUT BUFFER. 
CASAMUM EQL #12 PHYSICAL CASSETTE NLUNER. 
SRCALR EL tid SOURCE FOR TENT MOE’, 
DSTADR Ett fis DEST. ADDR. FOR TEXT MOVE. 
ACTANO Ei #19 SYS2H AGIA ACR CFDOS = SHO. 
EMDMEM Eu #15 LAST RD OF REAL MEMORS 
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bao rr BOSE BLETYP EU #38 CASSETTE BLUCK TYPE CODE 
BETS BOSC BFRETS Erilt FSC ADDR. OF I-O BUFF. FOR CASS 
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CASSETTE I-0 ORIVERS 


THE CASSETTE ORIVERS LOAD AND DUMP A BLOCK OF DATA 
TO AND FROM T. 
TRAILER FORMATTING. 


THE DRIVERS RARE SET UP AR A 


THE CASSETTE 


THE! HANDLE BOTH THE HEADER 


CALLED &%' THE ECUTIVE OR THE USER“S PROGRAMS 
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NOPENT 
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THE DRIVERS 
STEM, 
MMBMOS IN TH 
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he 


HHEN WRITING 


THE CHARACTERS B 


DISELSVED 
UPPER SI 


CHARACTERS BEING & 


RIGHT HAND 
CURRENTLY 

RIGHT HAHD 
M READ I 
NO CHANGE 
AYO" PE. 
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ESTATS 
AOC IANG 


ES USED BY THE DRIVERS ARE: 
USED TQ STORE INPUT ERR CODE, 


PTS. TO THE ACIA CURRENTLY USED 


2 CHAR. NANE OF BLOCK 

PRINT FLAG FOR BLOCK NAME. 
START UF CHSSETTE I-f BUFFER 
ENG OF CASSETTE CATA BUFFER. 


BE RUN FROM THE POS-SYSSA SOFTMARE 


feig x HADES, = A p \ Sb 2 ae | cs _¢ CAI t ¥ 
4 : Cat F ily at AYE Keto a, 
AL ro ? ie 
DRIVERS WITH THE POS-WSA S 
JSR SFENN: JNP SPFESP CTHE fp 
NITIALIZGATION, 20 FOR WRITE 
OM NEMOGRY LOCATIONS ARE INI 
ROUTINES. SETTING TRE NOFF 
Air OF CHARACTERS ON THE SCF 
ANO HEITS, vce yet pee 7 , Lets 
* 
ANG i> LUCATEG AT 28 IN PPS-SYS2A 
RT- LOCATION 26 OW THE FOuUS 


WHICH CONTAIN THE CASSETTE LOAD AND DUMP 
E EXEC, OR FROM THE PPS-VSAR. WHERE THE 
ARE CALLED THROUSH THE DEBUGGER 
DRIVERS DISPLAY PERTINENT DATA ON THE SCREEN 
OR READING FROM THE CASSETTES. ON A WRITE, 
FING HRITTEN ONTO THE CASSETTE ARE 
IN THE SECOND CHARACTER POSITION FROM THE 
GHT HaND CORNER OF THE SCREEN. ON A READ, THE 
; READ IN ARE DISPLAYED IN THE UPPER 
CORNER OF THE SCREEN. THE NAME OF THE BLOCK 
BEING READ OR SESSCHED OVER IS DISPLAYED ON 
SIDE OF THE SECOND LINE. THE ERROF CODE FOR 
5 DISFLAVED 4 POSITION TO THE LEFT OF THE NAME. 
ARACTES NEANS THAT THE READ HAS 0. K 
ANE HOS § CHECKSUM ERROR ON THE BLOCK 
HAT THE WRONG NUMBER OF BYTES WERE READ 
THE SUFFER <T® RD. THIS NOULD OF COURSE 
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THE ADDRESSES OF THE FOUTINES FOR CONTROLLING 
THE CASSETTE ARE AS FOLLOUWS: 


INTL2 - FOG : INITIALIZES THE ACIA FOR USE. 

WRTBLK - FB2D : WRITES A FORMATTED BLOCK TO CASSETTE 

ROBLK FB9S1 : READS IN A FORMATTED BLOCK OF TAPE 

WRTMOD - FB2F : WRITES A BLOCK TO A RUNNING CASSETTE 

ROMOD - FESS : READS A BLOCK FROM A RUNNING TAPE. 

CASQUT - FB62 : HRITES QUT ONTO TRPE THE BYTE IN A 

CASIN - FBPE : READS IN A BYTE INTO ACCUM. A 

TURNON - FEFr : TURNS ON THE CASSETTE DRIVE 

TRNOFF - FeBG : TURNS OFF THE CASSETTE DRIVE HHEN THE 
POINTR TO ACIA IS PASSED IN THE & REG. 


NOTE THAT ALL THE ABOVE ROUTINES ARE SUBROUTINES THAT 
ARE ENTERED BY A OSISR OR BSR CALL. 


USING THE CASSETTE ORIVERS. 


IF THE EPROMNS ON THE CPU BORRD ARE THE SYS2N OR THE 
SYS20 PROMS. THE ORIVERS ARE USED BY THE I CINITIALIZE): 
L ¢LOAD FROM CASSETTE? AND 5S ¢STORE GNTO CASSETTES 
COMMANDS THAT ARE A OPART OF THE Sis-2 EXECUTIVE. 


IF THE CPU PROMS BEING USED ARE THE PDS-Y3A OR THE 
POS-VSH OR YER PROM SETS. THEN THE USER NUST SET UP THE 
POINTERS AND CALL THE ROUTINES HIMSELF, USING THE 
DEBUGGER ON THE CPU PROMS. ¢NOTE THAT THE VOR AND WSN 
DEBUGGERS YAY. FOR INSTANCE THE ¥3A GO COMMAND IS A o“G~ 
WHILE THE VSN GO COMMAND IS A “CNTL G*. REFER TO THE 
USERS MANUAL FOR DETAILES. > 


USEO BY THE DRIVESS AS FLAGS AND POINTERS AND INITIB 
THE LOLATIONS THE ALIAND, SLENAM, BEFETR AND SEPSz: 
SHOULD NOW BE GIVEN VALUES. 


ACTANO WOLILD POINT TO Fes FOR THE FIRST CASSETTE AND 
TO Fe69 FOR THE SECOND CASSETTE ORIVE. 

A SINFLE FROGRAN TU CALL THE ROUTINES SHOULD NOM &E 
HRITTEN. OPEN LOCATION 908. TYPE IN THROUGH THE DEBUGGEF 
THE INSTRUCTIONS JSR BONS. JMP FE4F. SW IS THE SECOND BYTE 


OF THE DESIRED DRIVER ROUTINE. I.E. oa FOR INITIALLISATIUN 

OP S21 FOR READING AH BLOCK OR 2D FOR WRITING A BLOCK. THUS. 
TO INITIALIZE AN ACIA. ACIANG WOULD BE LOADED WITH 

THE ADDRESS OF THE ACIA AND THE USER WOULD THEN JUMP TO THE 
ROUTINE AT 360 BY OPENING $86 AND JUMPING TO IT HITH 

THE “G* COMMAND, THE ROUTINE NOULD BE AS FOLLEMS: 


*CALL S0@ Bf JSR 
961 FB HI BYTE OF ROUTINE AADDRESS 
S82 aa LOM BS'TE OF DRIVER ADERESS. 
963 . rE JMP 
984° FE RODRESS ai THE DEBUGGER ON 
985 4F THE POS Y3R PROM SET 


wy 


iw 


ec G66 POS-syse2 


ee * THE ACTA WOULD NOW BE INITIALIZED AND CONTPOL HOULD 

HbLTS * HAVE RETURNED TQ THE GCESUGGER. TQ REAG IN A BLOCK, 

| 2rd * THE NANE HOLILG BE PUT IN BLENAM AND LOCATION Sas HOULD 

| werd * BE CHANGED TO 94. THE USER WOULD THEN JUMP TQ 308. 
Ha276 * 
bbe? Fr * TO TEST THE CASSETTE. SET BFRPTR TO Ee6a AND BFRSSE 
aa2e7s * TH E@DF. THIS HILL ALLOW THE USER TO HRITE OUT DATA 
1 a * FROM THE FOURTH, FIFTH: SISTH AND SEVENTH LINE OF THE 
He2ss8 * CRT DISPLAY AND THEN READ IT BACK ONTO THE DISPLAY. BATA 
GHL81 * CAN BE TYPED ONTO THE SCREEN BY OPENING A LOCATION WHITH 
HH2S82 * THE DEBUGGES AND THEN MOVING THE CURSOR AROUNG THE SCREEN 
HALSS * TO CHANGE THE CHARACTERS. THIS IS POSSI8LE BECALISE THE 
Hb2s4 * ROUTINE TO INPUT AN ADDRESS CALLS THE EDITOR FOR INPUT. 
HoSSS * 
HO28S6 * THE DRIVER ROUTINES CAN ALSO BE USED TO PERFORM 
RASS? * T-0 WITH A NOBEM OR TELETS'FE. THE MAIN HAROHWARE 
HHL83 * DIFFERENCE BETHEEN THE CASSETTE AND MODEMN/TTY IS THAT THE 
HISeo * CASSETTE HAS AL CIVIDE BY 16 CLOCK AND IS UNIDIRECTIONAL 
GeHS Ia * WATLE THE MODEN-TTY HAYE A OIYIDE BY 64 CLOCK ANG CAN BE 
HHLIL * SIDIRFECTIONAL. BECAUSE OF THE CLOCK CHANGE THE ACIA MUST 
HALIZ * BE TURNED ON WHITH A OBIFFESENT VALUE BEFGRE THE REAP BLOCK 
HHL * OR WRITE BLOCK ROUTINES ARE ENTERED. TO TURN ON THE ACIA 
HALI4 * STORE THE VALUE “Be INTO LOCATION Fede OF Fees. ONCE 
HSI * IT IS TURNED ON. EITHER CASIN OR CASOUT MAY SE CALLED 
BI295 * REPEATEDL'T Of HRITE MODEM BLOCK CHYRTMODS OR READ MODE 
HILS9? * CROMOD) CAN BE CALLED ONCE. WRTMOD & ROMNOD ARE THE SANE 
H9298 * AS WRTBLE & FDBLE EXCEPT THEY DO NOT TURN ON THE ACIA. A 
was ed * PROGRAM TO READ IN AR BLOCK OF DATA FROM A OMNODEN OR TTY 
eee |) * HOULD THUS BE ¢PLACED BEFORE THE “CALL* ROLITINE>: 
HHSHL * SFA CE 28 LON ROIANG LORDS ACIA POINTTER 
BASG2 # SFC 86 B2 LDH A #882 LOADS STARTUP VALUE. 
HASAS ad SFE RA? 86 STARA PUTS START CODE INTO ACIR 
aazad * LOCATION 982 HOULD NOW BE 2F FOR WRITING ANG Sr TO READ 
BASSAS * TO READ IN A CHARACTER FROM THE TELETYPE TURN ON THE 
Heros * ACIA AND GO TO THE FOLLOWING SOUTINE: 
HAs?” * TT¥YIN JSP CASIN PEADS IN A CHAR FROM KESBOARD 
HHSaS * JHP CASOUT TYPES OUT CHAR ON PRINTER, 
HOLHS * THE RS2s2 SHOLUILD HAYE BEEN STRAPPED Ta HALF CLUPLE 
Bas19 i 
HAS141 * 
B8S12 * IT IS TO BE STRESSEB THAT THE RELIABILITY OF THE 
sas1s * CASSETTE CONTROLLER GCEPENDS ON THE ADJUSTMENT OF THE 
BAZ14 * TRINNER ON THE SIN BOARD: iF THE TRIMMER IS QUT OF 
OO315 * AOTUSTNENT THE DATA WILL NOT RESD IN PROPERLY. SESIDES 
GOS1S * USING THE OSCILLOSCOPE TO ADJUST THE TRIMMER. IT CAN ALSO 
Basie * BE ADIUSTED BY PEADING IN A STRING OF s SINGLE CHARACTERS 
BHOS19 * FROM THE CASSETTE AND ADJUSTING IT UNTIL THE CHARPCTERS 
BOSLS * SYNC IN PROPERLY. THE BEST CHARACTER To LSE IS 8 STRING 
ASEH et OF “US. TO PERO IN THE STPING FOR TESTING USE. WRITE A 
BASS L * LOOP TQ GET A CHARACTER FROM THE CASSETTE AND THEN 
HASLL * DISPLAY THAT CHARACTER. A SAMPLE ROUTINE TO DO THIS Is: 
HISLE * A SSR fFBPE LORDS A WITH CASSETTE CHAS. 
WIS25 * JSR $#FCAD PDS-V3A PUTCHR ROUTINE 
SSS * TST ¥F 081 TESTS KEYBOARD FOR A KEY 
HAS26 * BPL A SKIPS BACK IF NO INPUT. 
Bose. * THE ABOVE ROUTINE WOULD INPUT CHARPACCTERS UNTIL A KEY 
HHI29 * ON THE KEVBUORRD HAS DEPRESSED 
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OF Ct lex Pe 5. 

TOHARD rHrs END. ThE 3 FOS EPROMNS CONTAIN 
BASED EDITOR. A MINI-ASSEMBLE®, AND THE SFHER 
RAID CSORs, AS HELL AS A SET OF UTILITY BOUTIN 
BIT MULTIPLY AND OIVIDE. ASCII-TO-EINRRY. AND 
BINARY -TO-ASCII ROUTINES. ANG ROUTINES TO on 
INPUT AND QUTPUT TO THE AUDIO CAsseétre. 


THE SYSEN SOFTHRRE IS AN UPGRADE OF THE 
CYWON & WSD0 SOFTHARE DES eer ro RUN WITH T. 


SYSTEL. THERE RARE THO VERSIONS OF THE Sirs 52 

SY'S2N WHICH RUNS HITH THE NEW KEVSOARD AND THE 2A 

HHICH RUNS WHITH THE OR IGIONAL CKBD71IA* KEYBORRD. THE 
NEIN CIFFERENCE SETHEEN TRE WIA AND Si52 VERSIONS ARE 
THAT A FIFTH EPROM HAS SEEN ADDED AND THAT THE NINI= 

ASSEMBLER HAS SEEN PELEATED PND REPLACED WITH A_SET OF 
CONNANCGS TO 00 LOADING AND DUMPING OF CASSETTE TAPES. 
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90054 
H08SS 
POs? 
b JE 
Haa55 
Pos) onl 
eas? 
Peo) kato 
Aaas3 
BABER 
aaae1 
go0s2 
Ba062 
BonS4 
Ba065 
HaEE 
aooeT 
HapES 
Ban69 
paore 
BAAPL 
pnaF2 
paa72 
Perso pares 
paa75 
98075 
BeaTF 
BopTS 


Parrot 


HGOS1 
BGO9S 
GIIAS 
Baasd 
HOAIS 
Hagsas 
HOOD 
GGa93 
BOAIS 
baL1eae 

OL 
GeLa2 
BOLOS 
8 


HBAS 
885A 
HHac 
BEBE 
HLL 
BOLS 
Hol 4 
bo16 
HOLA 
ABLE 
ABLE 
8H28 
HeLS 
Bb24 
HL 
682A 
HHSC 
G@B2E 
HHO 
b8T2 
BOSS 
BGE5 
BSS 
GOSA 
HSB 
BOSC 
BESE 
8648 


26Fa 
BOBL 
HosL 
HGS 
HILS 
e617 
HOLE 
Bos4 
PHS 
5161 
aHoa9 


DIGIT 
CSTATS 
OUTEND 
BLUFADR 
BUFEND 
QUTELF 
CASNUM 
SECADR 
DSTRADR 
ENDMEM 
CSRPTR 
BLIFPTR 
BUFFLO 
BLIFFHI 
SCNFTR 
SRCASH 
OND VAL 
STNYAL 
BRESAY 
EREAOR 
EDIT 

BLENAM 
TOBUFF 
ACIANG 
NOPRNT 
BLETY? 
EFRPTR 
BFRSZE 
PCYAL 


* 

* 
TIMER 
ON 
DEF 
ETN 
So'N 
ETB 
ESC 
ERE4 
ERRS 
TIME 
TIMCONT 


Eau 
EQu 
Eau 
Eau 
Eau 
Eau 
EQu 
EQ 
Eau 
Ell 
EQ 
EQL 
EU 
Eiil 
EQu 
EU 
EGU 
Eu 
EAL 
Eni 
ENU 
EDL 
EQU 
EU 
EQ 
ER 
Eau 
FOL 
EQu 
Et! 
EAU 
Eau 
EQ 
EQ 
EAL 
Eg 
Eau 


MENOR'S' MAP 


#08 
FH2 
$04 
$4 
$05 
fH6 
£05 
£7 
$9 
¥H9 
$HAR 
FHC 
SHE 
$11 


16 BIT ACC. PSEUDO REG B. 
-HI BYTE OF ARB. 

-LO BYTE OF ARB 

16 BIT ARITH PSEUDO REG A. 
-HI BYTE OF FARA. 

-LO BYTE OF ARA 

BYTE USED 8Y ASCBIN FOR TMP. 
EASSETTE I-0 STATUS BYTE 
END OF OUTPUT BLIFFER TEXT. 
START OF I.°0 BLIFFER PTR) 
PTR. TO END OF I[,.°0 BUFFR. 
START OF OLITPUT BLIFFER 
PHYSICAL CASSETTE NUNBR. 
SOURCE FOR TEXT MOVES 

CEST. ABDR. FOR TEST MOVE 
LAST ADDRES OF REAL MEMORY’ 
PTR TO CURSER ON SCREEN. 
TEMP PTR USEG BY OLITSTR. 
PTR TG END OF LOW EGIT TXT. 
PIR TO START OF HI TERT. 
PTR. TO BUFFRD TXT STRRT. 
PTR TO ASSMBLR SOURCE CODE 
HAS ASSMBLR OPERND VALUE. 
SYMTBL. 
TENP SAYE FOR BRKPT DRTRA. 
ADDDRESS OF SREAKPOINT 

@ IF EPITOR IS NOT RUNNING. 
CASSETTE BLOCK NAME 

I-0 BUFFER FOR DEEUGGER. 
SYS2N CASSETTE ACIA ADDR 
CASSETTE NAME PRINT FLAG 
CASSETTE BLOCK TYPE COLE 
ADDR. OF I-O BUFF. FOR CASS. 
LENGTH OF CASS. BUFFER 
PROGRAM COUNTER FOR RE5h. 


FOLLOWING ARE VARIABLE VALLES. 


EQU 
EOu 
EQu 
EQu 
EU 
EQL 
EU 
Eni 
Eau 
EQuU 
Eau 


F26FH 
$81 


TIMER COUNTER 
ACIA VALUE TO TURN ON CASS. 
ACIA VALUE TO STOP CRASS. 
END-OF-TENT. 

SYNCHRONTSE. 

ENO -OF-TRANSMISSION-BLOCE. 
EXCAPE TO NONSTANDARD HDR 
SET FOR TRAILER ERPOR 

SET FOR CHECKSUM ERP 

TIME CNTR FOR 1.°4 SI 

TIMES FUR 2 & 1.4 5, 
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BaLaS 
Hales 
“Lane 
be LS 
HOLES 
HOL18 
HH111 
HAL112 
HOLLIS 
abiid 
BHL15 
be116 
beLL FS 
bH119 
BHBLL9 
Ha1 2a 
BOLE 
GHLZ2 
a9123 
Ho1e4 
HoLSS 
Hots a 
Boats 
aai2s 
HHLS9 
HHLEE 
HOLSL 
mat Se 
a BE 
Heis4 
HOLES 
BaLIZE 
sa1s? 
HHLES 
HHLE9 
Heide 
Heiss 
BHL42 
BaL4S 
HoL44 
89145 
H6146 
Boid? 
68143 
HaLES 
Oga158 
HIL5L 
BeLS2 
BOLST 
ea8154 
be155 
BH155 
PAST 
1583 


BGS 


FBO 


+ 


PDS SYSTEM 2N_ CASSETTE DRIVERS 
ORG SFRO0 


PASSETTE I-0 DRIVERS 


THE CASSETTE ORIVERS LOAD AND BUMP A BLOCK OF DATA 
TO AND FROM THE CASSETTE. THE’ HANDLE BOTH THE HEADER 
AND TRAILER FORMATTING. 

THE DRIVERS ARE SET UP AR OA SET OF SUBROUTINES 
CALLE By THE EXECUTIVE OR THE USER“S PROGRAMS. 


LOW MEMORS RACOCRESSES USED BY THE DRIVERS ARE: 


CSTATS AT #89 USEG TO STORE INPUT ERR CODE. 
BLKNAM AT Ss 2 CHAR. NAME OF BLOCK 

ACIANO AT Fe PTR. TQ THE ACIA CURRENTLY USED 
NOPRENT AT 3A PRINT FLAG FOR BLOCK NAME. 
BFRPTR AT se START OF CASSETTE I-0 BUFFER 
BFRSZE AT SE END OF CASSETTE OATR BUFFER. 


THE DRIVERS CAN BE RUN FROM THE POS-SYS2N SOFTWARE 
SYSTEM. HHICH CONTAIN THE CASSETTE LOAG AND OLIMNP 
COMMANDS IN THE ENEC. OR FROM THE POS-VSA. WHERE THE 
DRIVERS HRE CALLED THROUGH THE DEBUGGER. 


THE DRIVERS DISPLAY PERTINENT DATA ON THE 5¢: 
HHEN WRITING OR RERCING FROM THE CASSETTES. CN 
= eae Po BRITTEN JONTE TRE ee ae 


UPPER 2134 BEING READ IN ARE B ees N oN FRE 
RIGHT HAND CORNER OF THE SC SEEN THE NAI WE OF THE BL 
CURRENTLY BEING READ OR SEARCHED OVER I5 DISPLAYED 3 


NQ CHANGE IN CHARACTES MEANS THAT THE READ HAS oe K. 

AO"E" MEANS THERE WAS A CHECKSUM ERROR ON THE BEL LOCK. 

A“T" MEANS THAT THE HRONG NUMBER OF BYTES HERE READ 
INTO THE BUFFER CTRAILER ERROR?. THIS WOULD OF COURS 


INPLY A CHECKSUM ERROR ALONG WITH THE TRAILER ERROR. 


a) 


THE CSTATS (CASSETTE STATUS BYTE WILL CONTAIN FG 
IF THE BLOCK RERD IN HAS OF. IF IT WAS A BAD READ. IT 
WILL CONTAIN A S4 FOR ea ESRROR OR A 42 FOR A 
CHECKSUM ERROR COCE UPON EXIT FROM THE ROUTINE. 


r 


SETTING THE NOPRNT (NO PRINTING) FLAG TO A 8 WILL 
STOP THE DISPLAY OF CHARACTERS ON THE SCREEN DURING 
CASSETTE REAG AND WRITE. EXCEPT FOR THE T & C ERROR 
CODES, WHICH ARE ALWAYS CISPLAYEC HHEN THEY OCCUR 
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60168 
BaL1EL 


a0165 
60166 
O16? 
90163 
aa169 
ae470 
O41 74 
a4 72 
B04 7> 
ao1 74 
475 
90476 
oo4 77 
8179 
Ho179 
50180 
AO1SL 
aaL82 
80192 
aa134 
B15 


86194 
BBL9IS 
88196 
gea13° 
68193 
BOLS9 
Be208 
BOLOL 
HG2H2 
BOLHS 
oe2ea4 
BROS 
bac 
go207 
8a203 
HASH9 
Ba210 
gasi1 
84212 


— 


3 


ERE EE 


IF THE FIRST BYTE OF BLKNAM (BLOCK NANED Is Ao 
WHEN THE READ BLOCK ROUTINE IS ENTERED, THE NENT BLOCK 
WILL BE READ FROM TAPE NO MNATTE® HHAT THE NAME OF THE 
TAPE BLOCK IS. ON THE SYSEN EXEC. A CONTROL SPACE 
CHARACTER CAN BE TYPED IN AS THE FIRST CHARACTER OF THE 
NAME IN THE LORG BLOCK COMMAND. THUS. A CONTE LOCCNTL 
SPRCEX¢N> MOULD READ IN THE NEST BLOCK ON THE TAPE. 


THE THPE FORMAT IS: 
St'N 
SiN 
SYN 
Esc 
HI BYTE OF i6 SIT BLOCK LENGTH 
LOW BYTE OF BLOCK LENGTH 
FIRST CHAR OF BLOCK NAHE 
SECOND CHARACTER OF NANE 
DATR 


DATH 

ETE 
CHECK SLM 
CHECKSUM 
CHECKSUM 
CHECKSUM 


THE CHECKSUM IS CALCULATE FROM THE DATA. WHICH 
IS REAO IN FROM THE CASSETTE BUFFER RESICING IN MEMORY’. 


THE FORMAT FOS THE CASSETTE BUFFER IS: 


‘ae aie 


CIAISIS|EIT|TIE BIUJFIFIEIR 


HHEN DATA IS READ IN. THE READ ROUTINE SETS “BFRSZE* 
TO POINT TQ THE LAST CHARACTER READ INTO THE BUFFER 
NOTE THAT THERE IS NO OVERFLOW CHECK HHEN DATA Is READ 
INTO MEMORY. ON OUTPUT TO THE CASSETTE. THE SLOCK 
LENGTH IS CALCULATED FROM THE BFRPTR AND BFRSZE POINTERS 


THE RERD BLOCK AND HRITE BLOCK ROUTINES AUTOMATICALLY 
TURN ON AND OFF THE CASSETTE. 


* 
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ba214 
B8215 
Pe 216 
b_ 47 
88213 
BH219 
Ba2208 
Hale 
AaZ22 
HOSLS 
bbS26 
HHlL5 


HYSS1 
BHZS2 
HOSES 
HB2s4 
gZ25 
BH2SE 
O0227 
HO238 
BAZIS 
Bo245 
PAS41 
, M42 
gu24z 
bbsdd 
ald S 
Holds 
nae? 
89249 
HHL 9 
9e2e59 
HeLSL 
be252 
BHSSS 
HB254 
HeL5S 
HH256 
BOSS? 
BeHl5e 
8HS59 
ga268 
HoLeL 
pa262 
HALES 
hase 4 
BLES 
BI266 


BILES 
88278 
8 


885 PDS-SYS2 


RRHER EE RER ERE REE E REE EEE KEK KEE HRE EERE ER RE RHEE HER ERE HREER REE E HES 


THE ADDRESSES OF THE ROUTINES FOR CONTROLLING 
THE CASSETTE ARE AS FOLLOWS: 


INTL2 - FOGG : INITIALIZES THE ACIA FOR USE. 

HRTBLK - F820 : WRITES A FORMATTED BLOCK TO CASSETTE 

RDBLK - FB91 : READS IN A FORMATTED BLOCK OF TAPE 

WRTMOO - FB2SF : WRITES A BLOCK TO A RUNNING CASSETTE 

ROMOD - FBS3 : READS A BLOCK FROM A RUNNING TRPE. 

CASOUT - FB62 : HRITES QUT ONTO TAPE THE BYTE IN A 

CASIN - FB°E : READS IN A BYTE INTO ACCUM. A 

TURNON - FEF? : TURNS ON THE CASSETTE DRIVE 

TRNOFF - FBBE : TURNS OFF THE CASSETTE DRIVE WHEN THE 
POINTR TO ACIA IS PASSED IN THE & REG. 


NOTE THAT ALL THE ABOVE ROUTINES ARE SUBROLITINES THAT 
ARE ENTERED BY A JSR OR BSR CALL. 


USING THE CASSETTE ORIVERS. 


IF THE EPROMS ON THE CPL BORRD ARE THE SYS2N OR THE 
SYS20 PROMS: THE DRIVERS ARE USED BY THE I CINITIALIZES. 
L ¢LOAD FROM CASSETTES AND S ¢STORE UNTO CASSETTES 
CONMANDS THAT ARE A PART OF THE SY¥S-2 ENECLTIVE, 


IF THE CPU PROMS BEING USED ARE THE PDS-VSA OR THE 
POS-VSN OR VSD PROM SETS. THEN THE USER MUST SET UP THE 
POINTERS ANG CALL THE ROUTINES HIMSELF. USING THE 

DEBUGGER GN THE CPU PROMS. ¢NOTE THAT THE ‘ITA AND VIN 
DEBUGGERS VARY. FOR INSTANCE THE ¥3A GO COMMAND IS A °G" 
WHILE THE VSN GO COMMAND IS A “CNTL G*. REFER TO THE 

USERS MANUAL FOR BETAILES. > 

THE FIRST THING TO OO IS OPEN THE LOW MEMORY LOCATIONS 
USEO BY THE DRIVERS AS FLAGS AND POINTERS AND INITIALIZE 
THE LOCATIONS. THE ACIANG, ELKNAM. BFRPTR RND BFRSZE 
SHOULD NOW BE GIVEN VALUES. 

ACIANO WOULD POINT TO FeS8 FOR THE FIRST CASSETTE AND 
TO F@69 FOR THE SECOND CASSETTE ORIYE. 

A OSINPLE PROGRAM TO CALL THE ROUTINES SHOULO NOW BE 
HRITTEN. OPEN LOCATION 908. TYPE IN THROUGH THE CEBLUGGER 
THE INSTRUCTIONS JSR BON. JMP FE4P. &S IS THE SECOND BYTE 
OF THE DESIRED DRIVER ROUTINE. I. £& 88 FOR INITIALLIZATION 
OR 32 FOR READING A BLOCK OR 2D FOR WRITING A BLOCK. — THLIS. 
TO INITIALIZE AN ACIA. ACTIANO HOULD BE LOADED WITH 
THE ADDRESS OF THE ACIA AND THE USER HOULD THEN JUMP TO THE 
ROUTINE AT 9969 BY OPENING 360 AND JUMPING TO IT WITH 
THE *G* COMMAND. THE ROUTINE WOULD BE AS FOLLOWS: 


[ALL 380 BO JSR 
901. FB HI BYTE OF ROUTINE ARDDRESS 
S82 80 LOW BYTE OF DRIVER ADDRESS. 
SOS VE JHP 
S64 FE RODRESS OF THE LEBUGGER ON 
985 4F THE POS ¥Y3A PROM SET 
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BGS TS 
c Fd 
site) 
BG276 
aa2rr 
ag27s 
ge2r2 
BHdLSOH 
8G281 
88282 
BH28S 
Hb284 
88255 
88286 
Hb2s 7 
88283 
HI289 
Ha298 
a9291 
98292 
BHL9E 
Ha294 
BHL95 
Gb296 
BaL9F 
49298 
P7299 
& -88 
BESH1L 
86382 
BOSS 
eared 
BHSHS 
GGT06 
Base? 
GG383 
BHsa9 
Gas1ea 
Oas11 
GG212 
88313 
86214 
88315 
88316 
89317 
GG319 
89319 
68328 
BOS2: 
88322 
B8S23 
PAS24 

pF tea) 
— 
88326 
88327 
BGS23 
g 


ba6 PD 


B2 will produce 
a signel of eight 
data bits and 2 
stop bits. If 
the TTY operates 
on a different 
code, look up 
the proper init- 
ialization value 
in the ACIA 
section of the 
chip description 
appendex. 
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THE ACIA HOULD NOM BE INITIALIZED AND CONTROL WOULD 
HAVE RETURNED TO THE CEBUGGER. TO REAG IN A BLOCK: 
THE NAME HOULG BE PUT IN BLKNAM AND LOCATION 382 HOULD 
BE CHANGED TO 91. THE USER WOULG THEN JUMP TO 38H. 


TQ TEST THE CASSETTE, SET BFRPTR TO E868 AND BFRSZE 
TO E@DF. THIS WILL ALLON THE USER TO HRITE QUT DATA 
FROM THE FOURTH, FIFTH. SISTH AND SEVENTH LINE OF THE 
CRT CISPLAY AND THEN READ IT BACK ONTO THE DISPLAY. BATA 
CAN BE TYPED ONTO THE SCREEN BY OPENING A LOCATION WITH 
THE DEBUGGER AND THEN MOVING THE CURSOR AROUND THE SCREEN 
TQ CHANGE THE CHARACTERS. THIS IS POSSIBLE BECAUSE THE 
ROUTINE TO INPUT AN ADDRESS CALLS THE EBITOR FOR INPUT 


THE DRIVER ROUTINES CAN ALSO BE USEC TO PERFORM 
I-O WITH A MODEM OR TELETYPE. THE MAIN HARDHARE 
DIFFERENCE BETHEEN THE CASSETTE AND MODEN“TTS IS THAT THE 
CASSETTE HAS A OOIVIDE &Y 16 CLOCK AND IS UNICIFECTIONAL 
HHILE THE MNODEMA“TTY HAYE A OIYIDE BY 64 CLOCK AND CAN BE 
BIDIRECTIONAL. BECAUSE OF THE CLOCK CHANGE THE ACIA NUST 
BE TURNED ON HITH A DIFFERENT YALUE BEFORE THE READ BLOCK 
OR HRITE BLOCK ROUTINES ARE ENTERED. TO TURN ON THE ACIA 
STORE THE WALUE “B2° INTO LOCATION FO5G OF Feé6e. ONCE 
IT I5 TURNED ON. EITHER CASIN OR CASOUT MAY SE CALLED 
REPEATEGLY OF HRITE MODEM BLOCK CHRTMOD? OR READ MODE 
CROMOD) CAN BE CALLED ONCE. WRTMOD & ROMOO ARE THE SAME 
AS WRTELK & RDBLE ENCEPT THEY 00 NOT TURN ON THE ACIA. A 
PROGRAM TO REAO IN A BLOCK OF DATA FROM A ONODEM OR TTY 
HOULD THUS BE ¢PLACE® BEFORE THE “CALL“ ROUTINE>?: 


SFA DE 28 LDX RACIANO LOADS ACIA POINTTER 
SFC S86 P2 LDR A #382 LOROS STARTUP VALUE. 
SFE AP 88 STARA Ox PUTS START COGE INTO ACIA. 


LOCATION 982 HOLD NOW BE 2F FOR HRITING AND SE TO READ. 
TO READ IN A CHARACTER FROM THE TELETYPE TURN ON THE 
ACIA AND GO TO THE FOLLOHING BOUTINE: 
TTYIN JSR CASIN READS IN A CHAR FROM KEYBOARD. 
JMP CASQUT TYPES OUT CHAR ON PRINTER 
THE RS232 SHOULD HAVE BEEN STRAPPED TQ HALF CUPLES 


iT JS TO BE STRESSED THAT THE RELIABILITY OF THE 
CASSETTE CONTROLLER DEPENDS ON THE ROJUSTMENT OF THE 
TRINMER ON THE SIM BOARD. IF THE TRIMMER IS OUT OF 
ADJUSTMENT THE DATA WILL NOT READ IN PROPERLY. SESIDES 
USING THE OSCILLOSCOPE TO ADJUST THE TRIMMER, IT CAN ALSO 
BE ADIUSTED BY READING IN A STRING OF SINGLE CHARACTERS 
FROM THE CASSETTE AND ADJUSTING IT UNTIL THE CHARSCTERS 
SYNC IN PROPERLY. THE BEST CHARACTER TO USE IS A STRING 
OF “U*S. TQ READ IN THE STRING FOR TESTING USE. WRITE A 
LOOP TO GET A CHARACTER FROM THE CASSETTE AND THEN 
DISPLAY THAT CHARACTER. A SAMPLE ROUTINE TO 00 THIS Is: 
A JSR #FB7E LORDS A WITH CASSETTE CHAP 

JSR $SFCAD PDS-Y¥3A PUTCHR ROUTINE. 

TST ¥F eat TESTS KEYBOARD FOR.A REY 

ort. # SKIPS BACK IF NO INPUT 
THE RBOVWE ROUTINE HOULD INPUT CHARACCTERS UNTIL A KEY 
ON THE KEY@0HRO WAS DEPRESSED 
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(“ssi 
& 32 
BASSE 
HAZ34 
BASIS 
GGS36 
B83" 
BAS32 


BOS4a 
BA244 
HOS4? 
88243 
BOS44 
Hasds 
Bas4E 
HaZ4* 
BHHS43 
HaI49 
BHS5H 
88351 
HoOsS2 
BAZ53 
passed 
ie os be 
06 
BBS? 
BOSSS 
HO359 


ga264 
G8362 
88363 
GA364 
ga265 
@8366 
gas67 
8369 
BOz69 
027A 
pasF4 
@8372 
BO373 
Ba374 
Baz 7¢ 
80376 
gOsTF 
gaz7s 
BOS79 
A230 
_ 784 
gusa2 
gas8z 
asd 


FeO 
FBS 
FBE4 


FBG6 Se 
FBES AP 


FER 


FBGB 
FRGD 
FEGF 
FBi1 
FEL? 
FBS 
FBI? 
FBi9 
FEE 
FBP 
FBIF 
FES4 
FB22 


FE24 5 
FE26 & 


FB23 


FRSA 3 
FR2C 3 


FBED : 
FBSF C 


FBS4 
FB34 


FASS 28 


FE? 


FBSS 26 


FB2A 
FESC 


FEE 
FB48 
FE42 
FB43 
FB45 
FB47 
FB49 


FE4B 
FB4D 
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by 


INTL2 INITIALIZES THE ACIA CONTROLLER FOR 
ASPECIFIC TAPE UNIT AT NOUNT TITHE. 


LDX RACIANQ W& GETS ACIA ADDRESS 


LDH A #F1E RESETS THE ACIA 

STA A BS 

LDA A #CFF SETS ACIA TO 

STH A BN “16 2 STOPS. BIT FURMAT. 
RTS 


WRTHOR FORMATS THE HEADER ON THE TAPE. 


LOR A #STIN PUTS SYNC CHARS ONTO THPE. 
ESR CASOUT 

BSR CASOUT 

BSR ‘CASOUT 

LDR RA ESE 

ESR CASOUT 


LOR A BFRSZE FOLLONING OLITPLITS LENGTH 
LOH B GFRSZEt+1L LOADS LO BYTE OF END PTR. 
SUB B BFRPTR+1 SUBS LO 8YTE OF BEGIN PTR 
SBI A BFRPTR SUBS HI BYTE OF START PTR. 


BSR CASOUT OUTPUTS HI LENGTH &Y'TE. 
TBR LOADS LO BYTE OF LENGTH 
BSR CASOUT OUTPUTS LOH LENGTH BYTE 
LDA A BLKNAM = =60>PUTS OUT NAME OF BLOCK 
BSR CASOUT  . 

LDR A BLENAMN+1 . 

BSR CASOUT PUTS OUT LAST OF NAPE. 
RTS RETURNS BACK TO WRTBLK 


WRTBLK WRITES OUT A BLOCK OF DATA TQ THE CASSETTE. 


BSR TURNON TURNS ON THE CASSETTE. 

FOLLOWING HAITES FOR CASSETTE TO GET UP TO SPEED 
LOA B #TIMCNT LORDS TINE LOOP COUNTER 
LDS #7TIMNE | WASTER TIME LOOP ¢4-°4 SEC). 


DEX COUNTS CYCLES OF LOOP 
BNE TIMES TESTS FOR FIRST TIME OUT. 
DEC B - COUNTS TIMES IN LOOP 


BNE TIMEL SKIPS BACK UNTIL DONE. 
THE TIME LOOP IS NOW FINISHED 

BSR HRTHDR WRITES HEADER ON THE TAPE 

BSR WRTBFR WRITES OUT BUFFER DATA. 
FOLLOWING WRITES THE TRAILER QUT ONTO THE TRPE 


LOR A #ETB GUTPUTS END-OF-BLOCK CHAR. 
BSR CASOUT ET@ IS DISPLAYED AS ACN" 
TBR A GETS CHECKSUM FROM B 


BSR CHSQUT OUTPUTS THE CHECKSUM. 
ESR CASOUT OUTPUTS TRAILER FILLER 
BSR CASOUT BYTES. 

BSR CASOUT ‘ 
END OF TRAILER WRITING ROUTINE. 

BSR TRNOFF HALTS CASSETTE DRIVE. 
RTS al 
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a0387 * WRTBFR WRITES OUT THE CONTENTS OF THE 

r 783 * BUFFER ONTO THE CASSETTE TAPE 

b_.89 * 

68298 * 

BO291 FR4E SF WRTBFR CLR B - INIT CHECKSUM COUNT. 

G4292 FRIF DE 3¢ LBS = BFRPTR = ACIA CONTROL MASK. 

GOS92 FES1 Ae 89 WBFRI LDA A BS LOADS CHAR. FROM BUFFER. 
GG394 FESS OF BA STX TMP SAVES BUFFER PTR 

BaS95 FBSS 8p GB BSR = CASOUT «= PUTS: «CHAR ONTO CASSETTE 
BAI96 FBS? 18 ABA A GETS A+B 

HOT97 FESS 15 TRB B GETS A+8. 

BA399 FBSS DE a9 LDS TMP RESTORES PTR INTO BUFFR. 
9399 FASS 90 3E CPN BFRSZE TESTS IF BUFFER EMPTY. 
ga4a0 FESD 27 17 BEQ  CSOENT  ENITS WHEN EMPTY. 

Ga401 FRSF 93 INK INC POINTER 

G8402 FROG 26 EF BNE  WEFRI SKIPS BACK IF CHARS. LEFT. 
gadad * CASOUT TAKES THE CHAR _IN 4 AND PUTS IT OUT 
8a4a5 * ONTO THE CASSETTE TAPE 

Hade6 * 

an407 s 

P°4G8 FEES 36 CASOUT PSH A SAVES CHAR TO READ OUT 

i .89 FBS? DE 38 LPS  ACIANO GETS PHYSICAL ACIA ADDR 
G8410 FEES Se 82 LOA A #2 LOADS CONTROL TEST BITS. 
W841i FRE? AS BG CASOL BIT A aS TESTS IF ACIA BUFFER EMPTY. 
89412 FRE9 27 FC BEQ CASOL LOOPS BACK UNTIL READY 
BG413 FRSER 32 PUL A. GETS ORIG CHAR. 

90414 FREC AP at STA A 4X STORS CHAR INTO ACIA SUFFER 
Gad15 FBSE 7D BO3A TST  NOPRNT TESTS IF PRINTOUT ALLOWED 
BO416 FETL 27 BS BEQ CSOEXT SKIPS PRINTING IF A & 
b0417 FAPS BF EBLE STH A #E91E = DISPLAYS CHAR ON SCREEN. 
98419 FETS 39 CSOEXT RTS 

90420 * TURNON TURNS ON THE CASSETTE DRIVE. 

Ha424 * 

ba422 * 

98423 FRTP OE 28 TURNON LDN ACIANO LOADS CASSETTE ACIA ADDRESS 
@a424 FATS 36 Bt LDA A #ON | 

B8425 FBTR AT 80 STA A BS TURNS ACIA ON. 

GG426 FBPD 39 RTS 
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98429 
GO4S0 


Hd S4 
Hbgs5 
HO4ZE 
ba4s? 
HAGSS 
Hides 
HO446 
ao44d 


Hdd 
ao444 
Hed45 
Hadds 
badd 7 
Hadgs 


Prerg 5 


aaqss 
ods * 
o9d52 
eao4s3 
ao4eu 
HodeL 
eodeZ 
GH4es 
664e¢4 
Bba4eS 
86456 
sade - 
Ha4es 


Beads | 
Ba455 F 


FEFE 
FESO 
Fas2 
FES4 
FESS 
FESS 
FESB 
FRED 
FBSG 


FRAY 
FBR 
FBA4 
FERS 
FERS 
FBAS 
FEA 
FREAD 


CHSIN RERDS IN A CHARACTER FROM THE CASSETTE THPE 
INTO THE A RCCUNULATOR. 


ACIANO 
#1 

ao 8 
CASING 
deh 
YOPRNT 
CINEST 
FEGLIF 


% GETS THE ACIA ADDRESS. 
LORDS TEST BITS. 

TESTS IF ACCIA BUFFR FULL. 
SKIPS BACK IF NOT IN ET. 
LOADS IN CHAR FROM TRPE 
TESTS IF PRINT 13 OFF 
SKIPS DISPLAYING IF &. 
CISFLAYS CHR ON TY. 


RDBLK READS IN A BLOCK FROM THE CASSETTE 
THRE INTO BUFFER MEMORY 


TURNON 
RDHBR 


ROBFR 


TURNS ON TAPE ORIVE. 
READS IN THE HEADER. 
READS IN DATA INTO BUFFER 


ING READS IN TRAILER AND CHECKS CHECKSUM 


CSTATS 
CASIN 
#ETB 
RTLFL 
#ERRS 
RTLR2 
CASIN 


TRNOFE 
#ERRS 
CSTATS 
$E05F 


LOACS A 8 FOR A GOOD REAL. 
SETS STATUS BYTE TQ NO ERR 
INPUTS ENP-OF-BLOCK CHAR. 
ETB BIsSPLAYS AS A TH”. 
SKIPS IF N@ ETB ERROR. 
LOADS TRAILER ERROR CODE. 
SKIPS TO STORE ERROR CODE. 
READS IN CHECKSUM. 

TESTS CHECKSUM. 

SEIPS IF OK. 

SETS CHECKSUM ERROR CODE. 
SETS ERROR STATUS BYTE. 
DISP. ERR CODE ON SUREEN. 


END OF TRAILER READ IN. 
FOLLOWING TURNS OFF THE CASSETTE ORIVE. 
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PDS-SY'S2 
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*K 

* 

* 
PE 38 CASIN LDN 
36 a4 LDA A 
AS G CASINI BIT A 
a? FC BED 
AS O41 LDA A 
7D BasA TST 
27 83 BEQ 
BF EG1F STA A 
33 CINENT RTS 

* 

* 

* 

* 
SO Ed RDELK BSR 
30 20 ROMOD BSR 
8b 55 BSR 

+ FOLLOW 
dF ROTLR CLR 4 
a7 99 STA A 
80 £2 BSR 
Si i? CMF A 
27 a4 aE 
gs 54 Low A 
20 AF BRA 
SD D8 RTLRL BSR 
11 rea 
ar aF BER 
86 42 LOA A 
97 89 RTLP2 STA A 
BF Ear STA A 

* 

* 
86 51  TRNOFF LDA A #OFF 
AT 88 STA A 
33 RTS 


LORDS COMMAND TO TURN 
OFF ACIA CASSETTE ORIVE. 
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aga POS-Srs2 


RDHDR FINDS THE STHRT OF THE BLOCK ON THE TAPE. 
FIGURES THE BUFFER ENO AND CHECKS THE NADIE. 


ES 


Cr RDHOR BSR CASIN FOLLOWING FINDS THE 
& AON START GF THE HEADER. 
A BNE RDHDR 

Ci BSR CASIN ESTS FOR HERGR CHAR. 
E CHP AR #E5C STRRT-UF-HEADER. 
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4 
m 
LA a 
mm 
Nt 
= 7 be pa 
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F4 ENE ROHDR GUES BACK IF NOT GOOD HDR. 
FECL ee BSR CASIN rR 


~~ 
me 
m 


HI LENGTH Ef'TE. 


[7 


OS IN HI BYTE OF LEN 
"Tt 


= 7, 


8 BSR CASIN UTS LO SIZE LEN) BYTE. 


“y 
my 
cS 
: fej : 
Wi DL to be oo hy OD 


EB. 

SRY 

InN 
FeCE SE sb ACD A BFRFTR+1 FORMS POINTER TO THE 
FBECS DS st HOC B BFRFIPF TOP BYTE UF THE BUFFER 
FECA 3F Ss STH A EFRSLE+L SAVES THE HI BUFF. PTR. 
FCC Dy sé STR EB BFRSZE TG THE CASSETTE BUFFER 
FECE SD AE ESE CAS IN READS IN ELOCK NAPE. 
FEDW 36 Foo tf = SAVES FikST CHAR OF NAHE 
FEOL SO Ae BSR CHSIN Resi: IN SECOND CHAR INTO A 
FROS DS sA LOA 8 NOGFRNT TESTS IF FRINT IS GFF 
FEDS se rue * RESTORES FIRST NAME CHAR 
Fs0Ss 27 Be BEQ RAGCRL SKIPS IF PRINT FLAG IS & 
FEDS Fir EGSE SIA EB Ease CISPLAYS SLaCK NAHE ON 
FEDR BF ESF STH A FEUSF THE CRT SCREEN 
Fate rl 82s RHODRI TST ELEMAM TESTS IF NAME I5 CHECKED. 
FeEL er Os BER RHORS SKIPS IF NG WANE CHECK. 
FEES DL os CHP & ELANAM PESTS Fli CHAR OF NAME. 
FEES 26 CE mine ROHDR SKIFS 8H! F RO NAHE 
FRer Si 34 CNF A BLENARMF+L TESTS SECOND NAME CHAR 
FEES 26 CA ENE RDADR SKIPS BAi F BAG NAHE 
FREE s3 RHDRS RTS 


RPEFR 
THE 


2 
ir 25 
itt, 


ot Salad INTO THE MEMOR'’ BUFFER FROM 


FREC 5 <DBFR CLR B - INIT B FOR CHECKSUM. 

FEED DE st LON BFRPTE LOADS STRRT GF BUFFER. 
FSEF DF GH REFRL ST THF 

Fee, &f 38 BSR LASIN A GETS CHAR READ IN. 

Fors GE uu LBS THP GETS BUFFER FIR. 

FBFS AF ig STR A &ws STORRS CHAF INTO BUFFER. 
FRE? 18 ABR H GETS: Ate. 

FEFS 16 TRE 6 GETS A 

FeF3s 30 SE CPN BFRSZE TESTS IF BUFFER FULL. 
FEF 27 EE Ben RHORS SKIPS TO ENIT IF ALL ‘IS IN 
FEF gs IHS ING TQ NEST CHAR POSITIN. 
FSFE 26 EF BNE REFRL GOES BACK IF ANY LEFT. 


t ; 


i eins } 


PAGE * ped PDS-SYS2 


tT. 


PDS SYSTEM 2N CASSETTE DRIVERS (SYS2NF) 
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The SYS2NF prom is 


a version of the SYS2N cassette prom with a 
software bug fixed. This bug would cause the next block of a 
VS multiblock read to be skipped if the checksum on the preceeding 
. block was a 16 and the tape had not been previously used. The 
change is on page 10 where the ESC test and branch now branches 
to RDHDRI instead of RDHDR. 
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PRB EWU wk BYTE OF AR 


E £ ~HI BYTE OF AEB. 

STs bea ey 8 -LO BYTE OF ARB 
HOSS Bog HRA EQu G 1é BIT ARITH PSEUDO REG A 

TSS bad 888 AR Eau 5 wHI BYTE OF HRA. 
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im 
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HG Boa PIGIT EAU BYTE USED BY ASCEIN FOR TNF 
MISS GO09 y CSTATS Bou CASSETTE I-0 STATUS BYTE 
Hass aaa DUTEND HUTPUT BUPFES TEST. 
HOnSd a EUFADE START OF Ie SUFFES ¢FTS) 
GAGES 58 PTR TO END OF IO BUSFR 
gG058 BE STSRT OF OUTEUT BUFFER. 
Hogs7 y WYSICSL CSSSETTE NUNBS 
Hes URCE FO? TEST MOVES 
B008 T. ARDR Fo 
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5 E PTR. fi START. 
= c PTe Meee SIS 
ONE Emi: ZA AS | Fe Fe VALUE, 
Syne fot} eer Vay ue : qj 2f eel PRT 
BSENSRY eal FEE rENF SAVE FOS BREET DATA. 
SERADe Eu $20 ROCORESS OF SREARKPDINT. 
EDIT EQUI foe OB IF €fITOe IS NOT RUNNING 
BLEMAM Ent 5 CASSETTE BC 0CK NAME, 
ITOBUFF Et 235 I-0 BUFFER FOR DEEL 
ACTRNG Ef FES SYS2EN CASSETTE ACIA 
NOPENT EF 234 PASSETTE NANE PRINT 
RIP & FEE CASSETTE 8LOCK TYPE 
TR BA ib ENS RDOR. OF I-G BUFF. F 
af Eb SIE LENGTH OF CASS. BLIFI 
{ Ei F405 FEOGRAM COUNTER FOS 


OIL * FOLLOWING 
BBE OS * 
HOSS 2sFo TINEA EU #2 
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Ss Haas ERA = $H 
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Sies TIME e 2a SEC 
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POS-SYS2 


PDS SYSTEM 2N_ CASSETTE DRIVERS 
ORG SF ERO 


Ga 


AND 


ee iia | 
= 
mi 


bay ty 
~ 
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IND FRO 
THE bel 
CALLED BY THE 


AND 


im 
ee 


OW MEMORY ACDRESSES USED BY 


rT HANGLE 


CUP A 


wy 


BLOCK OF DATA 


BOTH THE HEADER 


HB: 


MOLT INES 


SenGRAMS 


CSTATS AT TORE INPUT ERR CODE 
BLENAM AT ME OF BLOCK 

RCIANO AT ACIA CURRENTLY USet 
NOPRNT AT OR BLOCK NAME. 
EFRETR AT SETTE I-t} GUFFER 
BFRSZSE AT TTE OATA BUFFER 

THE DRIVERS MW THE POS-SiSSN SC 
SYSTEM, WHICH to ETTE LOAD AND DUMP 
DOMMANDS IN THE THE PPS-VIS. KHERE THE 
DRIVERS ARE CALL bE: 

THE DRIVERS PESTINENT OETA ON THE SC 
WHEN WRITING UF FROM THE CASSETTE 4 
THE CHARACTERS BE TTEN ONTO THE CA } 
DISPLAYED IN THE CHARACTER POST F 
cided EDGE HAND CORNER GF THE SCREEN. ON FA RER 
CHARACTERS GEING READ IN ARE DISPLAYED IN THE Ue 
eTSHT "KANE! CORME® OF THE SCREEN THE NAHE OF TH 
CURRENTLY BEING READ OR SEARCHED OVER IS DISPLAY 
SIgeT HWOAh sThe me HE CEM § FAyo THE ory 
RIGHT HANG SIBE OF THE SECOND LINE. THe ERC 
A READ IS CISPLATED ON THE BIGHT SilE GF fT; 

NG CHSNGS IN CHSSSCTES MEANS THAT THE RESD 

A "CY MEANS THERE HAS A CI NM ERROR ON 

= “pit he Wo | Gero 
INTO Thi Tiere _ THIS id 
IMPLY .A ERROR ALONG WITH THE 
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BO4 = POS- 


IF THE FISST BYTE OF BLENAM CBLOCK NAME) IS AG 
WHEN THE PEAD BLOCK ROUTINE IS ENTERED. THE NENT BLOCK 
HILL BE READ FEOM THEE NO MATTES WHAT THE NAME OF THE 
TAPE BLOCK IS. ON THE SYSON ENED. A CONTROL SPACE 
CHARACTES CAN BE TYPED IN AS THE FIRST CHASACTER OF THE 
NAME IN THE LOAD BLOCK COMMAND. THUS. A CONTE LOCENTL 
SPECE)(X) WOULD READ IN THE NEXT BLOCK ON THE TAPE 
THE THPE FORMAT IS: 
SYN 
Sd 
SYN 
st 
HI SYTE OF i6 BIT PLOSK LENGTH 
LOW BYTE OF BLOCK LENGTH 
FIRST CHAR OF BLOCK NAME 
SECOND CHARACTER OF NAME 
DATA 
THE CHECKSUM IS CALCULSTED FROM THE DSTA. NSICH 
IS READ IN FROM THE CASSETTE BUFFER RESIDING IN MENTS Y, 
THE FORMAT FOS THE CASSETTE SUFFES [3 
BFRETE BFRSIE, 
WHEN DATS IS ESD IN. THE READ ROUTINE SETS “BESSTE- 
TO POINT TO THE LSST CHSPSCTER RESO INTO THE SUFFES 
NOTE THAT THERE IS NO OVERFLON CHECK WHEN GATS IS SEs0 
INTO MEMORY. ON OUTPUT TO THE CASSETTE. THE SLICK 
LENGTH I5 CALCULATED FROM THE BESFTS SND BFSSZE PYINTERS 
THE SEAD BLOCK AND WRITE BLOCK ROUTINES SUTOMSTICSLLY 
TURN ON SNC OFF THE CASSETTE. ; 
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THE ADDRESSES OF THE FOUTINES FOR CONTROLLING 
THE CASSETTE ARE AS FOLLOWS: 


INTLZ = FROG : INITIALIZES THE ACIA FOR USE 

WRTGBLK - FE20 : WRITES A FORMATTED BLOCK TO CASSETTE 
RDBLE - FBS1 : READS IN A FORMATTED BLOCK OF TAPE 
WRTHOD - FE2F : WRITES A BLOCK TO A RUNNING CASSETTE 
RDMOG - FESS : READS A BLOCK FROM A RUNNING TAPE 
CASQUT - FB62 : HRITES OUT QNTOQ TAPE THE BYTE IN A 
CASIN - FB°E : READS IN A BYTE INTO ACCLN. A 
_ TURNON - FEFe : TURNS ON THE CASSETTE DRIVE. 

TRNOFF - FEB : TURNS OFF THE CASSETTE DERIVE WHEN THE 

POINTR TO ACIA IS PASSED IN THE & REG 


NOTE THAT ALL THE ABOWE ROUTINES ARE SUBROUTINES THAT 
ARE ENTERED BY A ISR OR ESE CALL 


USING THE CASSETTE ORIVERS. 


IF THE EPROMS ON THE CPU SOARD ie THE 5 
SYS2D PROMS. THE DRIVERS ARE USED 


= 
L ¢LOSD FROM CASSETTE) No 
COMMANDS THAT SEE A PART 
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IF THE CPU FROMNS SEING USED ARE TRE 
POS-VSN OR Vso PROM SETS, THEN THE USER HL 


POINTERS SMO OHLL THE S0UTINES HIMSEL®, 
DEBUSGES ON TH 5. ¢NOTE THAT 
CEBUSGERS VAST THE ¥38 GD 


WHILE THE WEN GO SOMMSND IS § “CNTL G*. 


USERS MANUSL FOR PETAILES. > 
THE FIRST THING TQ OO IS OPEN THE L 
USED BY THE DSIVERS AS FLAGS AND POINTE 
THE LOCATIONS. THE ACIAND. ELKNAM, BFR 
SHOULD NOM SE GIVEN VALUES 
PEIAND WOULD POINT TQ FOSa FOR THE FIRS 
TO FGS9 FOR THE SECOND CASSETTE DRIVE 
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THE NAME MOLILO® BE PUT IM BLENAM AND LOCATION Sof 4 
BE CHANGED To 91. THE USER HOULO THEN JUMP TO 38a. 
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{ 
Yh fea Po PX 
Hd eh Tb Td dd 


icy 
Paha hy Ga ho ho foto Poa Po ts fo 


Wi) Cf “4 7 on re tet be 


TO TEST THE CASSETTE. SET BFRPTR TO Eeee AND BF 
at 
T 


Sy ey ica MS 
ab yy Sy Oy SO 


Mr 
mr My Sy 


~ 


THE DRIVES ROUTINES 
I-O WITH A NODEN OF TELET' 
DIFFERENCE BETHEEN THE C 
CASSETTE HAS A DIVIDE & 
HHILE THE MOBEM“TTY HAS 
BIGIESECTIONSL. SECRLISE ; 
BE TURNED ON WHITH A ODT 
OF WRITE BLOCK ROUTINES AR 
STORE THE VALUE “82° INTO 
IT IS TUPNED ON. EITH 
REFER TEDL 7 ne ae TE MODEM 
ww: 
c ESC 


~~ 


Pe ee 3 
a 


AM ALSO BE USED TO PERFOR 
THE HAIN HARDHAR 

TE AND MODEM@T Ts 

WWD IS UNICT, 


“yO, Oy te ba hg BAS 


rm 


Tm Uy a] 


ae Dh 0 
train 
Oy ay 


bey 

a Ty ry a 
4 
" ee 
dito -D 
: ie: | 
~~ 
a 
mM 


4 


~~ 
ma 
a 


Me 

‘ 

' 

! 
aa] 


a0); Sab bry a2 
RS pa 


u 
rm 


ey Sy 
Fo 
“a 
fo 
a BU 5 
1h 0 
Po 
Ly 
i 
iT) me : 


rye 
my 


ma 
fe, Po Py 
my (ae Oy Of 
ae 
dow, 


aig a 


B2 will produce 
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IT IS TO BE STRESSED THAT THE RELIABI 
CASSETTE CONTROLLERS DEFENDS ON THE ADJUSTMENT © 
TRIMMER ON THE SIM BOARD. IF THE TRIMMER IS C17 
ROJUSTMENT THE DATA WILL NOT ESD IN PROPESLY 
USING THE OSSILLOSONSE TO ADJUST THE TSIMMER, 
BE ADJUSTED BY FEADING IN A STRING OF SINGLE ¢ 
FROM THE CASSETTE AND ADJUSTING IT UNTIL THE 
SYNC IN PROPERLY THE SEST CHAPSCTER TO USE 
OF “ues. TO READ IN THE STRING FOR TESTING U- 
LOOP TO GET A CHARACTER FROM THE CASSETTE AND THEN 
DISPLAY THAT CHARACTER. A SAMPLE SOUTINE TO Da T 
A JSR FETE LOADS A WITH CASSETTE CHA 

JSR $FOS0  PDS-V3A PUTCHS SOLITINE 

TST #$FO8L TESTS KEV@ORFD FOR A REY! 

gPL 9A SKIPS BACK IF NO INPUT. 
THE REOVE ROUTINE MOULD INPUT CHARACCTERS UNTIL 9 FEY 
ON THE KEYBOSPO MAS DEPRESSED. 
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# INTLZ INITIALIZES THE ACIA CONTROLLER FOF 

GOZSL * A SPECIFIC TAPE UNIT AT MOUNT TIME. 
{. 322 * 

eGo? FROG CE 38 INTLZ LDN ACIANO §& GETS ACIA ADDRESS 
AA224 FBAS Ss 13 LDH A #f12 RESETS THE ACIA. 
HAS25 FRG AP Ba STAA OSs 
@G2i6 FRAG SA St LDA A HOFF SETS ACIA TO 
@ar37 FEES AF aa - STA A OBS “16 2 STOPS. BIT FORMAT. 
Bas328 FRAN F9 RTS 
Ag240 * WRTHDR FORMATS THE HEADER ON THE TAFE. 
BAP441 * 
O9242? FRGE SE 18 WRTHDRP LOA A ASIN: PUTS SYNS CHARS ONTO TAPE. 
@G242 FROC 8D SF ASP CASOUT 
H8344 FROF 3h St BSP CASOUT 
BA245 FRi1 so 4F BSR CASOUT 
BO2465 FHL 24 18 LOA A #ESC 
HG24° FRIS 28h 4e BSR CASOUT 
O9249 FFELP 96 FE LOA A BERSZE FOLLOWING OUTPUTS LENGTH. 
BAI49 FRIIS PS IF LOY 8 SFRSZE+L LOADS LO BYTE OF END PTR. 
BOSSA FRLE OG 2D SUB B BFRETR+1 SUES LO SYTE OF BEGIN FTF. 
BHI51 FRID 32 30 SBE A BFRETS SUES HI SYTE OF START PTR 
O5352 FRIF Sf 44 BSP CASOUT  QUTPLITS HI LENGTH BYTE 
@9z5s FR21 17 TBA LOADS LO SYTE OF LENGTH 
H935¢ FRSS 8h FE ace CASOUT OUTPUTS LOM LENGTH BYTE. 
@8z55 FRZ4 36 Fz LDS A BLENSN PUTS OUT NAME OF BLoce 
rise Fea6 8D 3A BSR CRSOUT 
be dS? PRES 56 i4 LOH A BLENAN+L 
BOSSS FRSA BO 36 BSR CASOUT PUTS OUT LAST OF NANE. 
GO359 FRZC 339 RTS RETURNS SACK TO WRTBLE. 
e036t * WRTBLE WRITES OUT A BLOCK OF DATA TO THE CASSETTE. 
8asé2 * 
GO253 FRI 30 42 WRTSLE BSR TURNON TURNS ON THE CASSETTE. 
gars FOLLONING HAITES FOR CASSETTE TO GET UP TO SPEED. 
OO265 FRIF Ce a9 nena LOA 8 #TINCNT LOADS TIME LOOP COUNTER 
O83se FRI1 CE Siéit TIMEL LDN #TINE WASTER TIME LOOP (44 SEC) 
B9367 FRI4 9 TIMES DEX COUNTS CYCLES OF LOOP. 
BOSS FASS 2a FD BNE TIME? TESTS FOR FIRST TIME OUT. 
BOTSS FEIT SA nec RB - COUNTS TIMES IN LOOF 
Ba27H FBIN 2a FF BNE TIME SKIPS BSCk UNTIL DONE 
DASFL ae THE TIME LOOP IS NON FINISHED. 
aar73 FBIA 80 CF BSE HETKDS MPITES HEADER ON THE TAFE 
GA3F32 FEIC sh 10 BSF MRTBER WRITES OUT BUFFER DATA 
Haz74 # FOLLOWING MRITES THE TRAILER OUT ONTO THE TSPE 
BESTS FRIE SE& 17 WRTITLR LOA BR #8TS OUTPUTS ENO-OF-BLODK CHAR. 
BOs7S FRIA 30 2a BSP CASQUT &78 IS DISPLAYED AS AoW 
OOS7F FR42 17 TEA A GETS CHECKSUM FROM B 
BO273 FR4F SP 10 BSE CASOUT = OUTPUTS THE. CHECKSUM. 
BO379 FRA 30 18 Ssr CASOUT OUTPLITS TRAILER FILLER 
80280 FEAF so 19 BSR CASOUT BYTES. 
“391 FE4I9 SD 17 BSR CASOUT 
L382 * END OF TRAILER HEITING ROLITINE. 7 
GOS82 FR4B SP SF BSR TRNOFF HALTS CASSETTE DRIVE 
88284 FB4D 39 RTS - 


BO237 : WRTRFR MRITES OUT THE CONTENTS OF THE 
HATS BUFFER ONTO THE CASSETTE TAFE 
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giz90 * 

OO391 FASE SF WRTBFR CLR B - INIT CHECKSUM COUNT. 

Ga392 FEAF DE 2C LDN  - BERPTR = -ACIA CONTROL MASK. 

Q@OT92 FRS1 AS 08 WEFRL LDA A ON LOADS CHAR. FROM BUFFER. 
GG394 FESS OF A STN THP SAVES BUFFER PTR. 

B9395 FSS SP a8 BSR  CASOUT PUTS CHAR ONTO CASSETTE. 
G8396 FES; 18 ABA A GETS AtB 

G0297 FESS 16 TAS B GETS A+. 

99393 FESS PE HG LDS TMP RESTORES PTR. INTO BUFFR 
g0399 FBSS 90 FE CPS BFRSZE TESTS IF SUFFER EMPTY 
@0480 FESD 27 17 BEQ CSOEST ENITS WHEN EMPTY. 

98401 FESF 95 INK INS POINTER. 

B8402 FR6EG 265 EF BNE WEFRI SKIPS BACK IF CHARS. LEFT. 
a0404 * CASOUT TREES THE CHAS IN A AND PUTS IT OUT 
8a4a5 * ONTO THE CASSETTE TAPE 
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80469 FRED 38 CASOUT PSH A SAVES CHER TO RESO OUT. 
WS FBS? DE 3s LDS SCIAND oS GETS PHYSICAL ACTA SD0R 
S416 FREES Se a2 LOA A #2 LOADS CONTROL TEST BITS 
@0411 FES? AS 8G CASOL BIT A BS TESTS IF ACIA BUFFER ENPT+ 
90412 FREI 27 FC SEQ = CASOL = LOOPS BACK UNTIL RERDY 
86413 FBSB 32 FUL A BETS ORIG CHAR, 

90414 FRSC AF ot STA A is STORS CHAR INTO ACIA BLFFES 
Ga415 FESE 7 8039 TST  NOPRNT TESTS IF PRINTOUT ALLOWED 
WO4i6 FRTL 27 63 REQ = CSOENT «= SKIPS PRINTING IF 3 8. 
O0417 FA72 SF EGLE STA A $E81E = DISPLAYS CHAR ON SCREEN. 
90418 FBFS 39 CSOENT RTS 

90420 * TURNON TURNS ON THE CASSETTE DRIVE. 

Ha424 * 

90423 * 

99423 FBTT PE 38 TURNON LOS ACIAND LOADS CASSETTE BOIA aDORESS 
8424 FETS 86 EL LOH A BON | 

GO425 FBTR AT 98 STAR BS TURNS ACTA ON 

984265 FEFD 33 RTS 
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The SYS2NF prom is a version of the SYS2N cassette prom with a 
= software bug fixed. Thi: bug would cause the next block of a 
Oe multiblock read to be skiaped if the checksum on the preceeding 
block was a 16 and the jape had not been previously used. The 
change is on page 19 wihare the ESC test and branch now branches 
to RDHDRI instead of RiHDR. 
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fou F40Q PROGRAM COUNTER FOR ASSM. 
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PDS SYSTEM 2N CASSETTE DRIVERS 


THE | 


BS LOAD AND DUMP A BLOCK 6 


F DATA 
TO AND FROM THE CASSETTE THE HANCLE BOTH THE HEADER 
ANG TRAILE® FORMATTING. g 

THE DRIVERS ARE SET UP AE A SET OF SUBSOUTINES 
CALLED 8 THE EXECUTIVE OF THE USERS PROGRPAMS 

OM MEMORY ADDRESSES USED BY THE DRIVERS ARE 
CSTATS AT 9S . USED To INFLUT ERR CODE 
BLKNAM AT 83 0 2 CHAR. OF SLOCK 
ACIANG AT 28 FTIR TO THE SCIa CURSENTLY! USED 
NGPENT AT 3A PRINT FLAG FDR BLOCK NAME. 

FESTR AT 3C START OF CASSETTES [-0 SUFFER 
AT 3& - END GF TE DATA SUFFER. 
POS-SYION SOFTWARE 
Oat AND: DUM 
S-WBA. HHERE THE 
BES, 

THE DRIVERS OISSLSY PESTINENT DATA ON THE SCREEN 
WHEN WRITING OR READING FROM THE CASSETTES. ON A MaITS. 
THE CHASACTESS SEING WSITTEN ONTS THE CAESETTE SS 
DISPLAYED IN THE SECOND CHARACTER POSITION FROM T 
UPFES RIGHT HSNO CONES OF THE SCSEEN ON A FESE: 

IRA! ERD IN BRE GISPLSYED IN THE USF 

WF THE SCSSEN THE NSNE OF THE 

52 FESSCHED OVER TS STIPLSYE 

HE SECOND LINE THE ESO" Oo 

: fh ON THE SIGHT SIDE 9S THE , 
NO CHANGE CTER MEANS THAT THE BESS His 
AND" HESNS NAS AB CHECKSUM ERROR ON TLE 
AO"T" MEAN. SE WRONG MLNSES OF BYTES NE 
INTO THE TSQILER EPSOR) THIS wOULE 
IMPLY AH EERO® ALONG WITH THE THSILE 

THE C fSSETTE STATUS) BYTE MILL CONTAIN & 
IF THE BLO IN WSS Qk IF IT WSF A BAD READ IT 
WILL CONTA Fi® TRAILES EFS8OR OF 8 43 08 A 
CHESA SLM VE UPON ENIT FROM THE ROUTING 


SETTING THE NOPRNT 


STOP THE CISPLAT 
EMSZSTTE 
POGES. WHICH He 


CF CRARAC 
FESO AND HEITE, 
‘E ALWAYS PI 


(NO PRINTING) FLAS TO A HILL 
E®S ON THE SCREEN DURING 
EXCEPT FOR He T 8 C FRG 
ISPLAVED MHEN THEY OCCUR 
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IF THE FISST BYTE OF BLENAM (BLOCK NAME) I5 AG 
WHEN THE FEAD BLOCK ROUTINE: IS ENTERED. THE NENT BLOCK 
HILL BE RESD FEOM TAPE NO MATTER NHAT THE NAMES OF THE 
THPE BLOCK IS. ON THE SYSEN EXEL. A CONTROL SPACE 
CHARACTES CAN BE TVRED IN AS THE FIRST CHASACTES OF THE 
NAME IN THE LORD BLOCK COMPING. THUS. & CCNTL LCCNTL 
SPACEX¢N) MOULD FREAD IN THE NENT BLOCK ON THE TAPE 
THE THPE FORMAT IS: ,; 
SoM 
SYN 
SM 
ESC 
HI BYTE OF 18 SIT BLOCK LENGTH 
LOW BYTE OF SLOCK LENGTH 
FIPST CHAR OF BLOCK NSE 
SECOND CHARACTES OF NAME 
DATA : 
THE CHECKSUM IS CALCULATED FSOM THE DATA. MYICH 
IS FEAD IN FROM THE CASSETTE EUEFER RESIDING IN MEMORY 


HHEN DATS 
TQ POINT Ta 
THAT THERE 15 


NOTE 
INTO PERMIT 
LENGTH IS 


THE FEAD ELOEK A 
TURN ON AND OFF THE 


Fu 
Ch 


ih READ IM. THE & 
THE LAST CHARACTER 
5 Nit OVERFLOW 

ON QUTPUT TQ THE 
ALCULATED FROM THE & 


™ 7 AI 


OD on ln oo 
Sabi th oo ho 


LIT 


wear 
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es Sr ae 
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PRGE 


oe cag a we oa we ware 
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Py fh hy fey hy hy Thy fy They th t 3 


42 
44 
45 
46 
47 
43 
43 
58 
St 
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Hi 
Ha252 
HHLoSS 

a2oa4 
HAL Ss 


dow) 
Bm etpig nyt 


roby hy hsahslahs Ps batts Fats fo 


oS 
OO oh 


ai ‘j 


SBM SN Aaey a wt 
; 


Bbf02 
HALES 
ADSoF 
AL eS 
WAI26E 

ar 
mess 
ALE 
ARS FA 


S 


gas 


POS- 
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try 
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*CALL Soo 8b JSR 


S OF THE ROUTINES FOR CONTROLLING 


THE ACDRESSE 
CASSETTE ARE AS FOLLOWS: 


THE 


INTLE  - 


F INITIALIZES THE RCIA FOR USE 
WRTELK - F 

i 

| oy 


HRITES A FORMATTED &LOCK TO CASSETTE 
READS IN A FORMATTED BLOCK OF TRPE 
HRITES A BLOCK TO A RUNNING CASSETTE 
RPEADS A BLOCK FROM A EUNNING TAPE. 
LHSGUT = F. WRITES QUT ONTO TRPE THE &Y'Te IN A. 
CASIN - FB : READS IM A BYTE INTO ACCLIN. oA 

TURNON - Fer? : TURNS ON THE CASSETTE CRIVE 

TRNOFF - FES : TURNS OFF THE CASSETTE DRIVE WHEN THE 
POINTR TO ACIA IS PASSED IN THE & REG. 


ROBLKE = 
HRTMHOD - | 
RDMOD - FE 

Cc 


“0, oh Noth oS 


Mm hota TAD Sy 


MOTE THAT ALL THE ABOVE ROUTINES ARE SUBROUTINES THAT 
WRE ENTERED BY A JSR OF BSR CALL. 


USING THE CA 
IF THE akg OM TH 
& 


E CPU BOARD ARE THE SYSen 0 
SYS2n PROMS. EF ORIVERS ARE USED BY THE I 
L SLOoAG FRG | PASSETTES ANG S cSTOREe ONTO 
COMMANDS THAT ARE A PART OF THE SiYS-2 Es 


iF THE CPU PROMS SEING USED ARE THs 
POS-V3" OR VED PROM SETS, THe THe USER 
POINTERS ANG CALL THE ROUTINES HIMSELF: 
DEBUGGER GN THE CFU PROMS. CNOTE TRAT T 
DEBLIGGERS WARS. FOR STANCE THE ¥3A GO 
WHILE THE SSN GO COMMSNE ‘. 


THE FIFST THING 


Wey (Ty bea ts RE 


E 
= 
I 
SESS MANUAL FOS BETA 
: 
i 
4 
5 
4! 


USE? BY THE OFIVERS 
THE LOCATIONS. ThE AC 
SHOULO NOW BE GIVEN VALLES, 

ACIANO WOULD POINT TO FOSO FUR 
10 Peed FUR THe SECUND CASSETTE OF 

A OSIMPLE PROG=AM TO CALL THE ® ULE: NOW { 
HRITTEN. OPEN LUCATION SHG. TYPE ROUGH THE DEP* 
THE INSTRUCTIONS JSR BOHN. THP FES 4a IS.TAE SECOND 
OF THE DESIFED OGRIVES ROUTINE: I. &. ' @6 FOR INITIAL LOA ION 
OR Si FOR READING A BLOCK GF 2D FOR WRITING 7A BLOCK 9 THUS 
TO INITIALIZE BN ACIA, ACTANO WOULD BE LOADED WITH 
THE ACORESS OF THE ACTA SND THE USER WOULO THEN fumN2 TO THE 
POUTINE AT 980 Er OPENING 200 AND JUMPING TO IT tlie 
THE *G* COMMAND. THE ROUTINE NOULD BE AS FOLLUWS 


FE HI BYTE OF ROUTINE AADE 


ped sts 
Lace 


Sud R 
992 2 LO: BYTE OF DRIVER ADDRESS. 
S02 F TAS 

Q04 FE ACS PESS OF THE CEBUGGER ON 
a5 4F TRE POS V3A PROM SET 
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aL THE ACTA HOULD NOW BE INITIALIZED AND CONTEOL WOULD 
mas HAVE RETURNEO TO THE CEBLIGGER. Td REAG IN A BLOCK. 


~ 


THE NAME WOULD BE PUT IN BLENAM AND LOCATION 592 HOULE 
BE CHANGED TO 34, THE USER WOULO THEN JUMP TO 3a. 


= 


72 r 
P3 +t 
74 
7S ok 
GOS76 # 
WISP P -s TO TEST THE CASSETTE. SET BFRPTR TO £ae0 AND BFRSZE 
AADFS * TO -EADF. THIS HILL ALLOM THE USES TO RITE OUT DATA 
qoera * FROM THE FOURTH. FIFTH. SINTH AND SEVENTH LINE OF THE 
HO2gA * CRT DISPLAY ANG THEN SEAD IT BACK ONTO THE DISPLAY. DATA 
HI2E4 * CAN BE TYPED ONTO THE ay BM OPENING 9 LOCATION MITH 
aase2 * THE BEBUGGES AND THEN MOWING THE CURSOR AROLING THE SCREEN 
AAIOF * TO CHANGE THE CHSFACTERS. THIS IS POSSIBLE BECKUSE THE 
Ho234 * ROUTINE TO INPUT AN ADLSESS CALLS THE EDITOR FOS INPLIT 
Wao s *w 
AO296 # THE DRIVER ROUTINES CAN ALSO BE USED TO FESFOSH 
wes? * T-0 WITH A MODEM OP TELETYPE. THE MAIN HARDWUASE 
3 # PIFFESENCE RETHESN THE CASSETTE SND MODEMATTY IS THAT THE 
gas89 #* CASSETTE HAS A OIVIBE BY 18 CLOCK AND IS UNIDIRECTIONAL 
OG250 * WHILE THE MOCEM“TTY HAVE A OGIVIDE BY sd CLOCe AND CAN BE 
A251 * BIOTRECTIONAL. BECALISE OF THE C WGE THE ACIA MUST 
HA2g3 # BE TUSNED ON WHITH & DIFFESENT ) FEAD BLOCK 
G29 # OF HRITE BLOCK ROUTINES ABZ © mane. NM OM THE ACIA 
garg #* STORE THE WaLUS “G2° INTO Loe FASO OS FESS OME 
5 (will sesatecs # IT IS TURNED ON.. EITHER CASIN SOUT SE =p 
35 qsignel of eight] * REPEATEDLY 08 WRITE NOCEM BLOC STMOD RE Eps 
* data bits and 2/ * CROYGDD CAN BE CALLED ONCE. WRTMOO & RE ae Saye 
= stop bits. ae RAS BATELA & ROGER ESCEST THEY OT TURN OMT A A 
a FPRGEAMW TO REAO Ih B BLOCK OF DATA FROM A ‘eo 
the TTY operates 5 HOULG THUS BE “PLACED BEFOSE THE “CSLL’ & 
gazg1 onadifferent \ » SFA PE 28 Low SCISNO Loames acr 
39302 code, lookup “SFO SslP2) LDA A ##B2 LOahS STs 
G33 the proper init- # SFE PF 86 STS A ak PLITS STSP 0 ACIA 
GG264 jalization value * LOCATION S82 MOULO NOM BE 2F FOR NEITIN: Peon 
BOSS inthe ACIA * TO REAC IN A CHARACTER FROM THE TELE THE 
peeps sectionof the | EN TSIN, SSR Me RST READS INA AZ FROM KEVSOARE 
aaToF *). ae oe ISI PASIAN © READS 4 CeAR FROM Ke vSOSeC 
pageg “lp description she CASOUT TEES CUT CHB ON PRINTER. 
aazas oppendex. * THE ®S222 SHOULD HAVE BEEN STRAPPED TO HALF CLRLEN 
HAF13 ‘k 
aorit * 
eos12 # IT IS TO BE STRESSED THAT THE RELISEILITY OF THE 
HIRLE #* DASSETTE CONTROLLE® GEPENDS ON THE ADIUSTMENT OF THE 
SO214 * TRIMMER ON THE SIM BORSO. IF THE TEIMNMNES IS OUT OF 
MATLS * ADTUSTHENT THE DATA HILL NOT RED IN PROPERLY. . SESIDES 
HAP1S * USING THE OFCILLOSONPE TO ADSUST THE TEIMNMER, IT CSN ALSO 
oes fa #* BE ADTUSTED BY FEADING IN # oh i OF SINGLE CHASACTERS 
AGP13 * FROM THE CASSETTE AND ADJUSTING IT UNTIL THE CHSS4cC TESS 
WITL9 * SYNC IN PROPERLY. THE BEST CHARACTER Td Wess [5 4 STRING 
BaP2O # OF. “USS, TO PEAD IN THE STPING FOR TESTING WS. WRITE 4 
aor? * LOOP TO GET A SHARACTES FROM THE CASSETTE PND THEN 
gasae * DISPLAY THAT CHSSACTER 9 SSYPLE SOUTINE TO OO THIS IS 
HOZ23 A JSR #FEBFE LOAQS A WITH CASSETTE CHAS 
“334 # JS& F080  POS-V3A PUTCHR ROUTINE 
LESS i TST $F081 TESTS KEVEORSD FOR A OKEY, 
gOF26 * BPL A SKIPS BACK IF NO INPUT. 
9227 * THE ABOVE POUTINS (OULD INPUT SHARPACCTERS UNTIL A KEY 
AaP23 * ON THE KETBOHSO HES DEPRESSED. : 
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Bassa 
PIDs, 


A224 
HasSss 
BASIS 
@ug237 
Hass 


BALI 
Gass 
BAPE? 
GHL42 
HOF44 
Ba3sh 
GOsS4E 
GAZ4 
HASHES 
Has49 
ST bead S| 


HOSEL 
HaSé62Z 
HALES 
Peed 
Raree 
HOS," 
AHSE69 
HOSES 
AYSFH 
HOST: 

GH272 
HOSS 
Bas? 4 
gISTS 
Gas Si ro 
7s ae 
HOSS 
HOSTS 
HALSH 
Wi St 
SmeE 2 
SSS 
Gass4 


FRG 
Fea? 
Fea 
FRGS 
FeaS 
FGA 


iy, 7, mm T, ea oo 


mh RS ft io TS Sh 8 op oo oy oo 
hor) 


ra Sg Pg 


5 a 


INTLZ 


* 
* 
WMRTHDR 


+ 
* 
WRTBLE 
oe 


HRTMDL 
TIMES 
TIMES 


* 
WRTTLR 


INTLZ INITIALIZES THE ACIA CONTROLLEF FOR 
A SPECIFIC TAFE UNIT AT MOUNT TIME. 


LEN ACTANO ® GETS ACIA ACORESS. 


LDH A #F13 RESETS THE ACTA. 

STA A Bax ; 

LDA A #0FF SETS RCIA TO 

STA A BN “16 2 STOPS. BIT FORMAT. 
RTS 


WRTHOR FORMATS THE HEADER ON THE TAPE. 


LOA A #BSS'M PUTS SYNC CHARS ONTO TAPE. 
BSE CASOUT . 

BSR CASOUT 

ESR CASCUT 

LOA A RESC 

ESR CASOUT .. 

LOA A BFRSZE FOLLOWING OUTPUTS LENGTH 
LOY B BFRSZEtL LOADS LO BYTE OF END PTR. 
SUG B BFRPTR+L SUBS LO ayTE GF BEGIN FIR. 
SBC A BFRETR SUBS HI SYTE OF START FT. 
BSR CASOUT QUTPUTS AHI LENGTH 8f'TE. 
TBA LORDS LO BYTE OF. LENGTH. 
esr CASOQUT QUTPUTS LOM LENGTH &Y4'TS. 


LDS A BLENAM PUTS OUT NANE OF BLODK 
BSR CRASOUT 
LOA A pial Lele 
BSR CASQUT PUTS OUT LAST OF NAME, 
RTS RETURNS BACH TO WHRTBLE 


HRTBLE WRITES OUT A BLOCK OF para TO THE Cas: 


BSR TUENON TURNS ON THE CASSETTE. 
FOLLONING HAITES FOR CASSETTE TO GET UP TO 
LOR B #TIMCNT LOADS TIME LOOP COUNTER. 


LDN #T INE MASTER TIME LOOP ¢1.°4 SEC). 
DES COUNTS CYCLES OF LOOP 
BNE TINES TESTS FOR FIRST TIME VOT. 
BEC B - COUNTS TIMES IN LOU. 
BNE TIMEL SKIPS BACK UNTIL DONE. 
THE TIME LOOP IS NOW FINESHED. 
BSR HRTHOS HRITES HEADER ON THE TAPE 
ESF HRTBFR HRITES QUT BUFFER DATA. 
FOLLOWING HRITES THE TRAILCR OUT ONTO THE 
LOA A #ETe GUTPUTS END=-OF-8LOLCK CHAR 
BSR CASQUT  &T8 IS DISPLAYED AS 9 Mh" 
TEA A GETS CHECKSUM FROM & 
BSR CASQUT OUTPUTS THE CHECKSUM. 
ESR CASOUT OUTPUTS TRAILER FILLER 
BSR CASOQUT BYTES. 
ESR CASOUT . 


INE. 


A 
END OF TRAILER WRITING ROUT 
F SETTE CRIVE. 


NE ie 
BSR TRNOFF HALTS CAS 
RTS 


——— 
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HASS * MRTBFR WRITES GUT THE CONTENTS OF THE 
PABIS - BUFFER OMTO THE CASSETTE TAPE 

nog * 
HO LIA * 
HHSS1 FEE SF HRTBFR CLR B - INIT CHECKSUM COUNT. 
Hus9S FBAF DE ec LO BFRFTR HCIA CONTROL NASK 
HHS9s FESL Ae 8a MBFRI LDR A GS LOAGS CHAR. FROM BUFFER. 
GG394 FRSS OF Bb STS THF SAVES BUFFER PTR 
OOsS5 FESS SD UB BSR CASOUT PUTS CHAR ONTO CASSETTE. 
HAs9s FS? 1B ABA A GETS AtB. 
HOSS" FESS 16 TRS B GETS A+B. 
HAS98S FESS DE BH LDS THP RESTORES PTR. INTO BUFFR 
BASIS FASE 90 Se DPN BFRSZE TESTS IF BUFFER EMPTY’ 
Aesad FRBSD fF ir BEQ CSQENT EXITS WHEN ENPTS. 
HO40L FRSPF oS INS ING POINTER. 
bad FRE 2H EF ENE HBF RI SKIPS &HCK IF CHARS. LEFT. 
Hedod * CASOUT TAKES THE CHAR IN 9A AND PUTS IT Our 
aaqdgs + ONTO THE CASSETTE TAPE. 
HOARE * 
Hadar - * 
Ho4od FRED Sh CRSOUT PSH A SAVES CHAS TO SERD OLIT. 

#09 FeSS DE 28 LE ACTIANG ® GETS PHYSICAL ACIA ALOR 
beadig Fees se oe LOA A #2 LOAGS CONTROL TEST ETS. 
gadi1 Fase AS a CASOL BIT A 8S TESTS IF ACIA SUFFER EMPTY’. 
HO412 FEES 2 FL BEW CASOL LOOPS BACK UNTIL REACT 
HH413 FRSR 22 FuL RA, GETS GEIG CHAP. 
Hodsid FREC AF GL STH A .da8 STORS CHAR INTQ ACIA GuUFFER 
Hadi15 FRe& FO HOSA rst NOPENT TESTS IF PRINTOUT ALLONED. 
“MHditS Fri 2F os BE CSUENT SKIPS PRINTING IF A a. 
gOdir FPS 8 EBLE STR A FEHLE DISPLAYS CHAR ON SCREEN. 
HEILES FEPS ss CSQENT RTS 
B42 vs TURNON TURNS ON THE CASSETTE DRIVE 
wager * 
8Ado2 ee 


He423S FB? OE TURNON LOS RACTANO LOADS CASSETTE ACIA ADDRESS. 


my by 
Mh % 


BO4d24 FRFI 8é LDA A O#ON | | 
GO425 FRTBR AP E STARA OS TURNS ACIA ON, 
AO425 FRFD 39 RTS 


--<+ 
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aa429 * 
Bate + INTO THE A ACCUMULATOR, 
ted wy 


r} 


Newt SS * 

GUA S.S DE ss CASIN LDS Ae TRNG A GETS THE FR 

4 S4 So Ot LOA Fi #1 LORS TEST B 

GAGI5 AS oo CASINS EIT A Us TestS IF Ree 

HF Se oF FL BEQ CASINA SAIPS BACK dP ROY IN FET. 

G4? Ho O21 LOA A dak LORDS IN CHAR FROM TAPE 
PQ BSA TSt NOPRMT BESTS If PRINT IS OFF 


CIA ADDRESS 
Its, 
IA BUFFR FULL. 


mM iom 


1 04 So Oy 9 Og my 


FSS 
OU4 29 er OS BEW NT SKIPS GISPLAYING IF &. ‘ 
Godda FeSO Br ca1r STA ISPLAYS CHR ON TY. 

go44di FRI 35 CINEST RTS 


™m ony teh 
{ i 
a 
a 
3 


ma AANAAT 


= 
tH Cc; 
mM 
bboy) 
i 
Ty Rt 


Odd ts 
wodd4 
Pay So oa) 
oadds 


ROBLE FERNS IN A BLOCK FROM THE CASSETTE 
THEE INTO SUFEER MEMORY. 


FRESE 


D447 FESL 90 Ed  ROBLK TURNON = TURNS ON TAPE DRIVE. 

W443 FRSS 30 25  RONOD RDHDR READS IN THE HEADER 

449 FESS 8h 55 RQEFR READS IN DATA INTO SLEFES 

aa4ey ; NING READS IN TRAILER AND CHECKS CHECKSUM 
“451 FES? 4F ROTLE - LOADS #9 FOR A GOOD RIRD 
#52 FES 9F a3 CSTSTS SETS STATUS avTE To NG ERR 

M453 FESS 3G E2 CaSIN INPUTS 2Nf-OF-SLOCK CHAR 

60454 FesC 81 17 #ETS ETS DISPLAYS AS A "H", 

aa455 FESS 27 G4 2 RILRL SKIPS IF NB ETB ERPOP 

Ga456 FRAG BS 54 Loa A #ERR4 LOADS TRAILER ERROR CODE 

aodsy? FRAS 20 AF BRA = RILFS = SKIPS TO STORE ERROR CODE, 

G459 FES4 Sb DS RILRL BSS CASIN 9 PEHDS IN CHECKSUM 

ao4sa FaAS 11 cea TESTS CHECKSUM, 

gg46H FEAR BP OF BEQ = TRNOEF © SKIPS IF OK. 

GN461 FEARS SS 42 LDA A #8825 = SETS CHECKSLIM ERROR CODE 

Gads2 FEE 37 99  RTLRZ STH A CSTATS SETS E8802 STATUS EYTE 

GO46S FEAR BF EGSF STA A #E55F = DISF. ERR CODE ON SCREEN 

aa4ed END OF TRAILER READ IN 

Ha4s5 * FOLLOWING TURNS GFF THE SASSETTE Oe IVE 

Gddse FESO 8S 51 TRNUFE LDA 5 OFS LOADS COMMAND To TiN 

Gade? FES? AP HO STA A ES OFF ACIA CASSETTE DAIVE 

Ga458 FB34 23 RTS 


€ 


CHSIN RENDS IM A CHARACTER FROM THE CASSETTE TAPE 


$ 
HOE tLe PRA -a rr Se 
a 
’ { RDHER FINDS THE START OF THE BLOCK ON THE TAFE. 
FIulikiéS THE BUFFER ENO AMD CHECAS THE NANE 


Xe 
pi i 


* 

Le EDHDF Bf 
16 RDHDRI cries A 
FH BME ; 
WL ISR TESTS FUR HERGR CHrik 

| START~iF-HEADER. : 
GUES BACK IF NWOT GOOD HBR 
CHol RENOS IM HI BYTE GF LEN 


1 
‘ 
H 
r- 
7, 
tT 


SS iz 


W442 FRCS 1s SAVES AI LENGTH BYTE. 
Wuggs FRC fo 6S CHIN THPUTS LO SIZE tLENS £TE 
“odsd FECo Sb 2b A BFRETRtL FORMS POINTES TG TRE 
GHESS PELE DS 6C he “F TRE BUFFER 
bide FECA SF Ss A HI SUFF. FTP: 
Hager FeCO OF Se E iT, SSETTIE SUFFERS. 
CH EN el AE 1S EAs IN BLOCK NAME. 
Whigs 25 PSH Aw SAVES FiesT CHRE OF WANE 
jigs ao AB BSP CASIN RESL IN SECGNO CHAR INTO A 

4 56 oF LOA 8B NOPRNT TESTS IF FRINT IS GFF 

i ed car FUL & = RESTORES FIRST NAHE CARR 

345 er BS fet BRIPS If FRING FuARG Is oO 

+: re € SLA é i SPE SLUCK NAME ON 

webs or EL S14 A TRE £RT SERRE, 

Plt Patel Tst Tesis Lf NAHE 
_ En ‘ > “ 


ee FF 


FEEC SF RDEFF CLE B 
FEED DE 30 LBs 
Fos? DF Go RBFEL OS 
es Pe! “oS be) 
42 FEES AF sta a x5 
4 FRE? 18 34 ET 
15 FERS 16 TAS ETS A. 
sis Faro 30 SE CEN TESTS [F SUEFER FLILM. 
SHEL? FEFE oF EE eEO SKIPS T2 ENIT IF ALL IS IN 
ISLS FEF oS fh; INS TOONSNT CHAP POSITIN 
W542 FRFE lo EF BNE RERPL = GOES BACK IF AN! LEFT 


mm 
Z 
Oo! 
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: HAN PRSH-5 
} OFT th. HUG 


SoM 
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PDS SYSTEM 2N CASSETTE DRIVERS (SYS2NF) 


—_—— 


FROGRAMNED &S ERIC JAMESUN 


I LUPYRIGHT L276 SPHEPE CORPORATIC 
11 S4ei } 700 ERA; NORTH SALT LAKE. UTAH S44 , 
3 Poo BUN 212 BOUNTIFUL, UTAH 840i 
4 
15 
th 
r 


an 
ees BS 


~ 


se 
Di) 4 
Uy 


— 
“485 


H 


iS) 


Nor 


Ree a 
¥ 40 Ege 


3 Ther qay 
THE S52 


CWE & VEBe = 
Syrah yorc ot ee 
SSN WAIGS Fur THE FH575 
HHICH SUNS HITH Oks THE 
Mell GLFPSFSNce : SST GANS Foe 
AT < ERETY SeSah 4 o Pie pO RT 
HOSEHNEL Ee Ses Set DELS TY OF 
COMMANDS Toa oO LOADING A Le 


The SYS2NF prom is a version of the SYS2N cassette prom with a 
software bug fixed. Thi. bug would cause the next block of a 
= multiblock read to be skipped if the checksum on the preceeding 
block was a 16 and the iape had not been previously used. The 
change is on page 10 wiiare the ESC test and branch now branches 
to RDHDRI instead of REHDR. 


rm 
S 
33 
a 
Th 
ms) 


> 

a) 
> 

wad 


FRE 
a ri FHS 
Saose 4 ARE Eni £04 ie BIT Ace. FSEUDO PEG B 
DOTS Lied AR? Et FOF aHT BYle OF Ses. 
AbnS > Haas ARS Edu 205 LO BYTE GF ARB 
ETSI bate) BOE SEA Eu FUE. 16 BIT ARITH PSEUDO SEG A 
HOH A HAGE AR Ena 26 -HI BYTE OF RRA 
Hae rar spd AE EOL far wLQ BYTE OF ABA 
aoe ST GTS Pet CIGIT En fHS BYTE USED BY ASCEIN FOR THP 
Wi SPST ed CSTATS Emu fag CASSETTE I-0 STATUS SYTE. 
HODF OUTEND Enti FOR END OF GUTPUT BUFFER TENT. 
OI SUPADR Ball FHC STRET OF f-0 SUFPFES CFTR 
Hoe BUFENG Eu fp= PTS TO ED OF IO BUFFR. 
ead of MUITEUF evil Pi STSET OF GUTEUT BLUEFER 
HLS CASNUM Eau #12 PHYSIC Seite 
Had 4 SECAOR Elat f1id SQURC ET 
716 : EGU fio DES Fur 
E o14 Eau #14 LAS ; 4 
ord Hie c Eat Sie PTS Ee ae 
cai tLe Siti #1& TEM Ei if 
HOARSE IPH Eu S20 PTS OF Ci 
AN Pt _ Emit fas PTR ‘T HI fF 
Maar Ss Eva tid PTR. Tal & 
; SA Ga toe PTE 7 tee 61d oes 
MOUSE Fou + HRS } RE GPEPRD +4 
TMYARL Fie ze VeLUE LN AS 
EKSRY Eau # TEMP 5A Fae # 
RRADR FU Ea ABDPRESS GF SE: 
DIT EGu #3 8 IF Seiftae fr 
LENAN EDL #> CASSETTE SLock 
3. OBUFF FSU £F T-9 BUPFES For 
SPST S Pate CIANO FL #3 CYS2N CASSET 
HOSS HPENT Bail #F Cas. T 
OAISS LETYP EL £2 ct 1. 
fat a EM #? AGGIE, 
iF EU $i LENG 
. Evi! $43 FROG 


* FOLLOWING APZ VSRIABLE WALUES 
* 
TIMER EDU TIMER COUMNTES 
OM Bou AGIA Vue fo TURN 04 CASS 
a OF euiif ACEA VALUE Ty STGP vas 
Th ECU ENO-DF-TES Tf. 
yoda SON ECU STNCRRONI SE, 
Bass ETE EOL END=-OF=TPA PSS JUN-EL CE. 
BOS 9 ESe Ertl BACAPE To AAT B=f HOR 
$e ERR Eel SET FOR LE: +e 
eae ERR S E SET FoF KS Zee, 
pry? TIHE fi TIME CNT! Seu 
MILOS TIMNONT in n TIMES FO SECONDS 


~~ 
~at 


Boy 
Pa he nS Ly 0, oe Gh Boy yy Op ee ho ee Gy 


: AEE RE EReREREEE Pe be RA RR BR RR BR FR FS FS 
haty hp ha baty baby hs bats Pa bala eR he RR IR RR 
ray 


4 
mG 


Lo, 
SS OS Ss 


ict 
= 
a 


i 
peed 
1) 


ke) 
= 
2G 


= 

as 
ae 
Tp 


~ 
—t 
—' 


Sy ys Mie = My Ha t 
Tar Es ey My Ee Ey St 


i 
NT a tig 


C 


aL 
HOL26 
3S 
HOLES 
MOL So 
Aadt4da 
G14 

oy 


boa 
is 
fig 
& 


ng AO On Onn 


SCD cys 
Ty Ey Ey 


vai 
= 


en) 
ore) 


1H ~y~O, Op te byhs Rm to Oy 


= 
~ RR BRR RR RR 


cat tah 


SKK EE FHKE HK KFER KK ESE EEE SKE KEHESEE 


TO AND 


PDS SYSTEM 2N_ CASSETTE DRIVERS 
FFERR 


ORG 


PASSE 


THE © 
FROM 
AND 


r 


ASSETTE ORIVERS 


THE 


TRAILES FOR? 


THE ORIVERS 


CALLED 


OG 
o 


CSTATS 


BLENAM 


RCIANG 

NOP RMT 
oreo TR 

BFRSZE 


SYSTEM, 
COMMANDS 
DRIVERS 


C Pert 


THE CHASALCTE: 
GISFPLAYED L 
UPFES RIGHT 
CHAPALTERS 
RIGHT HANES 
PURRENTLY & 
RIGHT ee 
A i= 
Na CHANGE 
A up ti 


agony 
“tee J. SY 


MEANS 
A “T" MEANS 
INTO THE 
IMPLY AC 


IF: THE BLL 
HILL CONTA! 
CHECKSUM. EF 


SETTING 
STOP THE fl! 


PSSceTTe 7, 


Obes. WHITE 


hit 
Ot 


M 


mic 
c 


THE 


(cot 


‘ne 


ec 


“ORNE 


s 


ty try ae iry ey ce 


rs 
WHEN "URITING. OR BER 
ET 


NG 


TE I-0 ORIVE 


CaS 


cy 


BLUCK 0 


LORG AND CMF A 


- 
CASSETTE. THE} HANDLE BOTH THE HEADER 
tAT TING, - 

ARE SET UP AS A OSET OF SUBSOUTINES 
ECUTIVE OR THE USER“S PROGRAMS . 
RESSES USED BY THE DRIVERS ARE 

USED TO STORE INPUT ERR CODE 

2 CHAR NANS OF BLOCK 

PTS. TO THE SCIA CURSENTLY USED 
POINT FLAG FOR BLOSK NAME 
START OF CASSETTE I[-0 SUFFER 
END GF CASSETTE ORTA BLFFES 


PISPLAS PESTINENT OHTA ON THE & 
ING FROM THE CASSETTES. iN 
WG HRITTEN ONTO THE CHSSEPTE & 
COMD CHARACTER POs IT iat FROM 
CURNES UF THE SCREEN. ON & SSA 
READ IN BRE DISPLAYED IN THE 4 
BOF THE SCREEN, THE NAME GF Tx 
READ OR SESSCHED OVER IS OIZPLS 
OF THE SECONS LIWE. THe ERRUP © 
AYEO ON THE RIGHT SIGE OF -THE FRiat 
SRACTER NEANS THAT TRE READ HAS 
Re MAS A GREGESUN ERROR OM t 
? THE WRONG NUMBER GF brs. 
Re UTRAILER ERRORS. THIS iw 
UM ERROR ALONG WITH THE TR 


CASSETTE STATUS: BYTE HILL CONTAIN 
SO IN WSs Ok TF IT Was 4 FAD FEA 
Si FO? TRAILES EReeoRP Of 4 st FOF A 
CODE UPOM EMIT FROM THE ROUTINE 
NOPENT CNOD PRINTING? FLAG TO 4 8 
OF CHSS9CTESS ON THE SOSEEN LST 
NO MEITE, EXCEPT FOR THE To 0 Fee 
PE SLYAYS OLSPLATED WHEN THES OCcue 


PAGE O64 Ppos-sys2 
IF THE FISST BYTE OF BLENAM ¢PLOCK NA 


'T, 
on 


f A q: 

sh WHEN THE FEAR BLOCK ROUTINE IS ENTERED. THE NEST BLOCK 
wy be HILL BE REAP FROM TAPE how MATTE®S HAT THE MANE OF THE 
Nasal THRE BLOCK - Fs. WN THE SYSSN ENED) A DONTRDL SPACE 
HoL64 CHARALTES CAM BE TPED IN as THE FIRST CHRERCTERP OF THE 
MELeES NAME IN THE LOAD BLOCK COMNMANL:. THUS. AO CONTL LACENTL 
bHLeS SPACES¢NS MOLILE REAGQ IN THE NEST BLOCK ON THE TRPE. 
male 
Apes 
Has 
bal ra THE THRE FORMAT IS: : 
aad et SoM 
aad 72 SoM 
Had PS SoM 
Hod rd Est 
mo Ss HI By vTE OF 28 SIT BLOCK LENGTH 
oad Po LOW BYTE OF SLOGE LENSTH 
soiree FIPST CHAR OF BLOCK NAME 
Hot FS SECOND CHARACTER OF NAME 
Aoi s DATA 
haLee 
er ee 
AaLess 
HOSS 
FHL o4 
Wet 2s 


a) 
= 
= 

=. 


\_é 


NG yo, 


( 


Lolo to on to on oy 
‘ 


Rly balks (to te yo, Op ee ty to bs 


~*~ 
Lace | 
=! 


Porn a) 


a oe 
Or AO 


~~ 
=f 


— 
al 
— 
aCe | 


sy SS Me 


a Oe ee ee Se SO Oo oe eo 


Be sescrgoves 
Mtl & 


Mf THE DRTAs HATCH 
RESIOS 


WG IN HENGE 


San howl how 
at mae 


re 
= 
& 


THE FOSMAT FOS THE CASSETTE BUFFER I: 


oad Te aerr 


My OD C5 
Le a 
son) 


cS hs 


Ss a ae 


— 
J 

ne 
at 


Ss 8D) Cay 8 


rane 


ms 
“ 
a8 


£8 
WHO Oe TI 


OG Mp 


WHEN Das 
TO POINT TOT 
NOTE THAT THE 
INTO MEMIFY 
LENGTH IS ¢ 


Py Paha Po 


oJ 


Log - 


Tr 1X Se 
i= 


yO 
my try ep ea 
ad i 
Ba ™ 
is 
mc 
D4 

i 
aS 
8 ae ee Oe) 
= xh. 2 
om | 


at Ss GS 
eo 
fe 
ie 
ak a 


mS My 
a1 Th) OD 
ry hg hy ho 


CO 


— 
i 


THE READ BLOCK AND WRITE BLOCK 
TURN ON AND QFF THE CASSETTE. ’ 


a 


Iho && ‘Os 


Wy 


PRGE- 865  FOS-Si's2 


OAS 4 


WSLS THE ADDRESSES OF THE ROUTINES FOR CONTROLLING 
|: one THE GASSETTE REE AS FOLLONS: 

Kir 

Me rs LiiLe WO : INITIALIZES THE ACIA FOR USE 


oF] 
ov} 
Ke 
ina 


HWRTELE - 
ROBLK - 
WRTHOG - 
ROMQG. - s : R sf Cm I PE. 
CASGUT — $2: HRITES QUT ONTO TAPE THE SYTE IN A 
CASIN - FRFE : READS IN A BYTE INTO ACCLM A 


reo 


D : WRITES A FORMATTED BLOCK TO CASSETTE 
> READS IN A FPOSMATTED mote OF TAPE 


ht 
Pe 

i 
PS 
m 


tr 
~ 
~ 


a 

= 

—— 
Aha ht 
“ata 


Anh ATTN 


= 


a] TURNON — Fer? : TURNS ON THE CASSETTE vk IVE. 
a) TRNOGFF - FBO : TURNS OFF THE CASSETTE DRIVE WHEN .THE 
ee POINTR TO ACIA IS PASSED IN THE »® REG 


iow} iow 
a TS 


NOTE THAT ALL ge ABOWE ROUTINES ARE SUBROUTINES THAT 
ARE EMTEREC Br A ISR OF BSR CALL. 


ely My f 


re, 
ie) 


a 
sr Wy Ce ts 


yr t 


USING THE CASSETTE CRIVERS. 
uy 


IF THE CPU PROMS BEING USED ARE 
POS-VIN OR VED PROM SETS, THEN THE 
POINTERS HN CALL THE SQUTINES HIME 
DEBUGGER ON THE CPU FRONS. 


Dina 
1p Ey oe 


234 


mal 


rm 
PePshos hoa to ha bs bobo hj ho ES 


Sy Ty 
my 
Joi 


t 
Oss 
Hos If FHE EPROMS os THE CPL SOAR 
HaS35 SF —- ty en Ss ARE 
maDTS a Wo Se 
area aol cor 
ere 
oa 2 “2 
“ 
iow 


oy 


z 

aa 

Mm pe 
a es 
fi a ye 


AY DEBLUIGGERS WARY. FOR INSTANCE THE YSA G 

We WHILE. THE VSN GO COMMSND IS A “CNTL G* 

BS USERS NANURL FOR DPETHILES. 2 

ny THE FIRST THING TO DO [5 OPEN THE LOW MEMORY LOCATION 
oa USE BY -THE ORIVERS AS FLAGS AND FOINTERS Ala INTTIawi2e 
a THE LOCATIONS. THE ACIAND. ELKNAM. BFRPTS AND BFRSZE 


See ee Oe enn See Cae an On On OMe On ee 


1, te RP ho oo my Oy 


WW 

ald, SHOULO NOW BE GIVEN WALUES. 

HHS, ACTIANO WOULD POINT TO Fase Fuse THE FIRST CASSETTE RAD 
Ha2s TQ Féod FO THE SECOND CASSETTE OFIVE 

[13 fakery AOSIMPLE PROGFAN TO CALL TRE ROUTINES SHOULD NOH BE 
BAl5S | HMRITTEN. OPEN LOCATION SHis, TYPE JN THRCUGH THE BEE EGE 
Hess THE INSTRUCTIONS JSR SDN. INP FEAF i= fee Seouns of 
GALSS OF THE DESIFPED PRIVES ROUTINE, J.£ 08 FOR INITIAL f2ATic 
aS eee ie OR Si FUR READING A BLOCK GP 2D FOR WRITING A BLOC: Trt 
W266 TQ INITIALIZE BN ACTR. ACIANO HOULO BE LOADED WITR 

HO LeL THE ACORESS OF THE ACIA SNO THE USER WOULD THEN Fuine TO] 
BOSo2 POUTINE AT 990 6 GRPENING 300 AND JUMPING TO IT tiITeA 
WALES THE “G* COMMANE. THE ROUTINE WOULD BE AS FoLLOHs 

AAlo4 

Se ae} *CALL SOO BG JSR 

WILE * Sui Fe HI BYTE OF ROUTINE AADDRE SS 
ae ial 902 8A LO; BYTE OF DRIVER AOORESS 

W598 a SO2.- FE Jie 

gaLe9 a So4 FE ACCORESS OF THE DEBUGGER CM 

ARLE ¥ SH5  4F Taz POS V3SA PROM SET 


& 


PAGE 


a 
fy OA Goh eG GO, Oe hg 


1 & 


rm, 
oT 


Se 
SS co & 


BS 14 
gers 


H86 POS-Sy'S2 


B2 will produce 


a signel of eight: 


data bits and 2 
stop bits. If 


the TTY operates 


on a different 
code, look up 


the proper init- 


ialization value 
in the ACIA 
section of the 
chip description 
appendex. 


k 
4 
f 
* 
+ 
* 
ve 
fs 
+: 
* 
* 
* 
# 
Kk 
* 
# 
4: 
* 
+: 
$f: 
ft: 
: 
* 
+: 
aa 
he 
+ 
# 
fe 
# 
+t 
*k 
* 
# 
* 
* 
# 
# 
Ke 
Re 
# 
a 
Kk 
*& 
# 
*K 
+ 
* 
# 
* 
+ 
* 
* 
K 
e 
ial 
Bad 


THE ACTA HOULG NOW BE INITIALIZEC AND CONTSOL WOULD 


‘ HAWE RETURNED TO THE CEBLIGGER. Ta REAC IN A ELOCK, 


THE NAME WOULM BE FUT IN BLENAM AND LOCATION Sas HOULD 
BE CHANGED TO Si. THE USER WOULO THEN JUMP TO SBE. 


ore 


To TEST THE CASSETTE, SET BFRPTR TQ Eee ANE BFRSSE 
TO E@OF, THIS HILL ALLON THE USER TO WRITE OUT GRTA 
‘ FROM THE FOURTH, FIFTH SISTH AND SEVENTH LINE OF THE 


CRT CISFLAS AND THEN READ IT SACK ONTO THE DISPLAS. DATA 
CAN BE TYPED ONTO THE SCREEN BY OPENING A LOCATION WITH 
THE CEBUGGES AND THEN MOWING THE CURSOR AROUND: THE SCREEN 
TQ CHANGE THE CHARACTERS. THIS IS POSSIGLE BECAUSE THE 


* ROUTINE TO INPUT AN AODRESS CALLS THE EDITOR FUR INPUT 


THE PSIVES POUTINES CAN ALSO BE USED TO FESFOSN 
I-0 WHITH A MODEM GF TELETYPE. THE MAIN AASDWSEE 
BE enanee BETHEEN THE CASSETTE AND NODEMATTY IS THST THE 
ASSETTE HAS A MTVIOE 84 28 CLOCK AND IS UNIDIRECTIONAL 
WHILE THE MODEMATTY HAVE A OGIVIDE &Y sh CLOCK AND: CAN BE 
BIQIFECTIONAL, BECALISE OF THE CLO’ CHAP 
BE TURNED ON WITH A DIFFESENT YALUE BEFS 
OF WRITE BLOCK ROUTINES ABZ SNTEFED. TO 
STORE THE VALUE “S2° INTO LOCATION Faso 
IT IS TUNEL EITHES CASIN OF CASOLT 
REPEATEOL'Y OS HRITE MODEM BLOCK CHR TMOG? 
CROMODS DAN SE OSE ANCE WRTMOD & RE: 
AS hoe SOG k EMCEPT THEY DO NOT TLaM 
PR TO SER0 IN & SLOCK OF SATA FROM A | 
HOULE iS BE CPLScen EEENES THE “CSL < 
SPQ PE FS LoS ACISNC an ar 
SFO Ss(B> LDA A ##82 wy OST: 
SFE AF 8b STS A A = STA: 
LOCATION S82 WOULD NOW BE 2F FOR PITING 
TO RESD IN A CHREACTER FROM THE TELE 
ACIA SNS GO TO THE FOLLOWING SOLTINE: 


1 

Ne he 
TTYIN JS | CASIN ESOS IN A CHAR 
IMP PASOUT TYRES GUT CHAS 


T i 
THE RS2se2 SH QULO HAWE BEEN STRAFPED TQ HALF 


IT is TO 8& STRESSED THAT THe RELIAPILITs GF THE 
CASSETTE CONTROLLER DEPENDS ON THE RDJUSTHENT OF THE 
TRIMMER ON THE SIM BCRRD. JF The FRINNES #5 GUT OF 
AOSUSTHENT THE DATA HILL MOT RESO IN PROPERLY BES IVES 
USING THE OSCILLUSCOPE FO AGSUST THE TRINHER, IT CARY ALSO 
BE ROSUSTED GY FEAGING IN A STRING OF SiMGLS CHAP ALTERS 

‘FROY THE CASSETTE AND RDJUSTING IT UNTIL THE CHBRA TERS 
SYNC I PROPEFLT. THE GEST CHARACTER To ues IS A STRING 
uF “Us Ta gels fi THE STRING FOR TESTING Use. HKRITE FA 
LOOP ra GET A CHARACTER FROM THE CASSETTE RAND THEN 
DISPLAY THAT CHARACTER. A SFP LE ROUTINE TO DG THIS Is: 


Rm. J88 FSFE LOoAeS A WITH CASSETTE CHAS. 
ISR FORD PDRS-VvSA PUTCHS POUT INE. 
TST $F aed TESTS sEv8ORrL FOR A REY 
BRL OF SAIPS BACK IF NO INPUT. 
THE. ABOVE ROUTING .(QULO INPUT CHAR ACETERS UNTIL A KEY 
ON THE KETeORSO HRs DEPRESSED. 


PAGE 


BASSO 


7 322 


aa? 


2 FED 


apzs4 
HOSLSS 
BASES 
agssr 
AAZ29 


BAF4IO 
aas4y 
BAS42 
BBSHS 
HoTd4 
| ea345 
BOs46 
BaSHtE 
HaS49 
GOS5H 


FBO2 2 


FEE 


FROG 35 S 


FROGS 


FSOH 2 


FeoE 
FBaC 
FBRF 
FBit 
FB1S 
FBIS 
FELT? 
FR1IY 
FELE 
FELD 


2 FBRIF 


S53 FES 


362 FRED 3 


oase4 
Ag2eg 
O8s66 
STS Rt ad 
Absss 
BOSES 
BV?2 FH 
GaISP: 

GH 72 
BASFS 
Boas 74 
goose 
aa Sra 


nos? 


aus wf ro 
BAS PY 


are 


aazgy 


O41 


i ' 
ae. 


292 
MESES 


Gasgd 


, 6 


FaSe 
FB24 
FBSe 


FB28 


PBA 8 


FB2C 


FBSF i 


FBS 
FES4 


FRS3 2 


FRE? 


F823 26 


FBSA 
FRSC 


5 FBSE 
FRG 


FE42 
FR43 


FR4S 3 


FR47 


FBI2 
FEIB 3 


FB4D 


DDT, 


~ 


Sho 05 09 Io oo fo og 


Le 


ho Wo oo RS On i 
1D, Sy Oly So, 9, 3 9,5 


aD ODMD> 


INTL2 INITIALIZES THE ACTA CONTROLLEF FOR 
A SPECIFIC THRE UNIT AT MOUNT TIME. 


LEN ACIANO = N GETS RCIA ALCORESS. 


LDH A #F1s RESETS THE ACTA. 

STA A GSN ‘ 

LDA A #0OFF SETS ACIA To 

SFA A ews “16 2 STOPS. BIT FORMAT. 
RTS 


WRTHOR FORMATS THE HEADER GN THE TAPE. 


P LOR A RSM PUTS SYNC CHARS ONTO TAPE. 
ESR CASQUT 
ESR CASOUT 
ESR CASOUT 
LCA A ESE 
ESR CASOUT 
LOR A BFRSZE FOLLOWING OUTPUTS LENGTH. 
LOW B BFRSZR+D LOADS LO BYTE OF END FIR. 
SUB B BFRPTR+1 SUBS LO SYTE UF BEGIN FIR. 
SSC H :. BRRPTR SUBS AI BYTE GF STRAT PTR. 
BSR CASOUT OUTPUTS HI LENGTH SY'TE. 
TBA LOADS LO BYTE OF LENGTH 
esr PASQUT QUTPUTS LOM LENGTH BY'TS. 


LDS A BLENAP PUTS OUT NANE @F BLOCK. 
BSR CASGUT 

LOR A BLENAM+L . 

BSR PASQUT PUTS OUT LAST OF NAHE 
RTS RETURNS BACK TQ HRTBLEK. 


WRTBLE WRITES OUT A BLOCK OF DATA TO THE CASSETTE: 


{ BSR TUENON TURNS ON THE CASSETTE. 
eee HAITES FOR CASSETTE TO GET UP TO SPEED 
LOA B #TIMCNT LoOsnS TINE LOGP COUNTER, 
LDN #TIMNE MASTER TIME LoOP ¢1°4 SECs 
GES COUNTS CYCLES OF LOOP 
BNE TIMES TESTS ps IRST TINE OUT. 
CEC B = COUNTS TIMES. IN LCUP. 
SNE TIME SEIPS BACK UNTIL GONE 
THE TIME Loop IS NOW FINISHED. 
BSR HRTHOS MIPTTES HEADEP ON THE TrRFE. 
BSF HMRTBFR WRITES OUT BUFFES DATR 
FOLLOWING HRITES THE TRAILER GUT ae THE TRPE 
LOR A. #ETB GUTPUTS END-OF-SLOCK CHAR. 
BSR CASQUT ETS IS DISPLAYED AS q oD 
BA A GETS CHECKSUM FROM B 
SR CAHSOUT QUTPUTS THE ee Sut. 
SR CASOQUT OUTPUTS TRAILER FILLER 
SR CASQUT BYTES. 
SR CASOUT : 
END OF TFAILER MPITING ROUTINE, 
SR TRNOEF HALTS: CASSETTE GRIVE. 
ers ad 


PAGE 888 PDPS-SYS2 


WRTBFR WRITES aut THE CONTENTS OF THE 


HOSS? * 

Pasa * * BUFFER ONTO THE CASSETTE TAPE. 

SP ok) * 

HHSS1 FE4E SF WRTBFR CLR BO - INIT CHECKSUM COUNT. 

Hus92 FBAF DE 3c LDS BFRFTR HACIA CONTROL MASK 

BHS9IS FESL AG BE WEFRL LOR A OS LOADS CHAR. FROM BUFFER. 

@aGs94 FASS GF AA STS THP SAVES BUFFER PTR 

HHSSS FESS 3D. wb BSR CASQUT PUTS CHAR ONTO CASSETTE 

G@as9n FBS" 16 AEA A GETS AtB 

Beso? FESS 16 TAS B GETS ee 

Oas93S FRI PE HH Los TH RESTORES PTR. INTO BUFFR 

GUSSS FESS SC SE LPS BFRSZE TESTS dF SUFFER SMPTT. 

Hadad FSD fF iF BEW CSOENT ENITS WHEN ENPTY. 

Ha48L FRSF os ING INC POINTER. 

Ha4o2 FRE 26 EF BNE HEF RI SKIPS GACK IF CHARS. LEFT, 

Hoado4 * CASOUT TAKES THE CHAR IN A AND PUTS IT GUT 

Hadas ee ONTO THE CHSSETTE TAPE. 

HO4HE ¥ 

Bada? * 

Aad FHSS Fh CASQUT PSH A. SAVES CHAR TO READ OLIT. 
#99 FRSs DE 25 Lax ACIAND & GETS PHYSICAL ACIA AGDR 

Wa19 Fees se 82 LOA A #z LOADS CONTROL TEST €IT=. 

adit FesP AS 8H CASOL BIT A as TESTS IF ACIA BUFFER ERPTY. 

Ha4d12e FESS fF FL BER PAaSOL LOOPS BACK UNTIL REAGT 

HG4i2 FBSR fe PUL A. . GETS GEIG CHA. 

HHdi4 FEC RE GL STA A de STORS CHAR INTO ACIA BLFFER 

H84i5 Fel Fo Basa TST NOPRMT TESTS IF PRINTOUT ALLOWED 

Hodis Feri 2F bs PEW CSOEST SKIPS FRIHTING IF A. 

G41" Fees 8P ELE STH RA FEVLE DISPLAYS CHAR OM SCREEN. 

G41 FRE ss CSOENT RTS 

Ga4ee % TURNON TURNS ON THE CASSETTE DRIVE 

BaF ot * 

Ga4dl2 af 


TURNON LDS ACTAND LOADS CASSETTE ACIA ADORESS 
LOR A RUIN 


Bades FBP er CE s 
B42 FRPS Se 


' 
1% Gy 
Mmm & 


GO425 -FRFR AP B STA A OS TURNS ACIA ON. 
88426 FBFD 39 RTS 


PAGE 809 PpS-sys2 


aa423 
BESO 


CHSIN FRENDS IN A CHARACTER FROM THE CASSETTE TAPE 
INTO THE 4 ACCUMULATOR 


fo al LOA A #l LOADS TES iM BI] 

AS oo CASINZ EIT A Ws fests IF -ACCIN COFFR FOLL. 

ee FC BEQ CASINA SLIPS Baik FF NOT IN YET. 

b1 LOP A dss LOADS IN CHAR FROM TAPE 

PO SOSA TST WOOP RMT ESTS IF PRINT Is OFF. 

Zr Gs BEW CINENT SKIPS GCISPLAYING IF &. ‘ 
Br cer STH A EBL DISPLAYS CHR ON TY. 

33 CINENT RTS 


DE 38 CASIN LDS RAETAND a GETS FHE ACIA RADGRESS. 
ITS 
A 


Hg LSS 
Bad s9 
G44 
Gaga 7 


or) 

a 

ty 

‘ 
DHA NAAN 
mon 0909 mmm 
tm OO Oe, fa 5 TH 

a 

if 


non Oo 0 Ss Oy hy Oy my 


add * 
Hoddd . * THEE IN 
Oe445 * 
Hadds * 


Oise FBS. 20 4 ROGLK BSR TURNON TURNS ON THRE DRIVE 
G4g3 FESS 30 25 ROMOD BSP RDHDR READS IN THE HEADER, 
M4469 FEST BO Ss BSH  SfEFR = READS IN DATA INTO = 
nad Su * FOLLOWING READS IN TR NC 

“451 FBS? 4F ROTLR CLR A - LOADS AO FOR A Goo 

S23 FERS 97 83 @4 CSTATS SETS STATUS arte Th Nov 

godss FRSA ab £2 Po OCASIN 9 INSUTE SN-OF-SLOC 
Ga454 Faso Si 47 1A SETS ETS DISPLATS AS A 
BO455 FESS 27 G4 FQ oSTLPL SKIPS IF N® ETB ERO 
aa4565 FRAG Bs 54 Loa A #EFR4 LOADS TRAILES SRPOR | 
W045" FSAS 29 a7 BRA = RATLES © SKIPS TO STORE EFROR CODE 
Has5e FRA 8 DS RTLPL BSS = CASIN HDS IN CSECKSUN 
W459 FRAS id CEA TESTS CHECKSUP 
ga4ea FRAP 27 OF BEG 9 TRNIFF 9 SRIPS IF OO 
HM4eL FEARS SS 42 CA A #5885 SET 
Ga4e2 FEHE 97 09 RTLRS STS A CSTATS SET 
BO4ES FEAL BF ESSE STA 8 $6555 9 ATS, 
Ga4e4 + ENO OF TRAILER REA! 
Ha485 * FOLLOUING TURNS OF 
QGdie FASO 26 51  TRNUFE LDA 4 GFF LOAL 
Gade? FESS AP oo. STA A ON OFF 
Ga458 FRD4 23 RTS 


« 


iis ane 


ee , 


QL | ! 


q Cae . ' ‘ 


EDHOR FINDS THE- START OF THE BLOCK CN THE’ THPE. 


M4 Ss 


* 
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” 

eng 7 m 


eo CF PDHDR BEs 
Gi 16 RDHDRI YlF A 


TS FOR HEROR CHAR 

p START-UP -HEFUSR, 
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Lh TRE SAVES AI LENGTH BYTE. 
so BS BSF CASIN IHFUTS LO SIZE €LEN) &YTE. 
2B 30 ACD A BFRFETR+L FORMS FOINTES TO THE 
De SC ADE FRPTR TOP BYTE OF THE BUFFER 
a Ai STA SAVES’ The HI SUFF, FTP: 
fer SE BTA 1G THE CASSETTE 8 E. 
ry uD AE ESR REAUS IN ELOCK NDE. 
ay PSH bs T ¢ e Ey 
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a Lia T RINT IS OFF 
ky PUL fi IEST NAHE CEPR. 
‘ by BEG 3 RINT FLAG FS 4, 
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“od Se SE GEA TESTS IF SUFFER FULL. 

pal ar Ge Fant ok BRIFS TH GSIT £F PLL is I 

fh raat [hin TNO TO NEST CHAP Fasit in. 
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PDS /a (222) 


TOTAL 5 €@mom |4k SE 
WHICH /NCLUDES Calls TO 
CASSETTE SUBMLTINES. 


MINLASSEMBLER DEMOVED _ 
FROM ROM, WRITTEDV Fore 
(2AM toRD/MG Now, 


Some e7ter CHANGES 
MADE IN OPERANT UG SYSTEM. 


PDS 
(a%.2) 


' } . "e - ‘ A F Le yD _ 
SPHERsS S \q@k OPECAT ING SyST WHICH HAD Trrpe 


INOTES ON PDS/2 (28.2) 


PDS/2, formerly known as SYS 2 Software, was written to 
‘provide keyboard control of cassettes. To provide room for 
‘these functions, the mini-assembler was removed form the PROMS. 
In removing the mini-assembler, fixing some potential bugs in 
the "SIM PROM" and cleaning/compacting other code there ASCII 
character input to the INPNUM routine, add the display of ASCII 
to the debugger, allow user specified "ESC" character, imple- 
mentation of the real SWI vector and automatic check for the 
end of memory. It should be noted that this 5 PROM set has 
lost the boundary between the "SIM PROM" and the "CPU PROMS" 
and that all 5 PDS/2 PROMS are required to function properly. 


OPERATION OF THE PDS/2 


INITIALIZE CASSETTE: ea n sd where N is the last four bits 
of a number. If EVEN then F@5x is used 
while if ODD then F@6x is used. The 
exact ACIA address is determined by x=n 
added with Ex, ie n=F@58, n=l1=F@69, n=2 
=F952, n=F=FG6E. 


LOAD FROM CASSETTE: (C/LYbn ESO sa, C where bn=the block name 
‘the first block entered with space 

specifies starting address follows---- 
anything else will be echoed but ignore 
and starting address will not be changed 
from what is currently at 3C/3D. Starting 
address ends with ESC, c=block count, 
specifies number of blocks to read. If 
@ will substitute 1. 


EXAMPLES: €/1) 'SM % 4c00 &Sc, sc will load 
the basic Yoader. 


€/D ‘MA @SC % 260 ESC, ESC will load the 
Mini-Assembler. 


€7® SQ , ESQ will load the next block. 


SAVE TO CASSETTE: C/S bn &SC where bn=the block name as 
specified for load above. The starting 
and ending addresses must already be set 
up at 3C/3D and 3E/3F. 


GO FROM EXECUTIVE: (€C/G sa where sa=the execution address 
the same way as in the Load command: 
begins with the space, ends with ESC. 
If not specified, will execute last block 
loaded (3C/3D is default go address). 


GO TO CANNED PROGRAM:C/A) goes to the program pointed to by 
GA/ PB. 


* 


ENTER ASCII TEXT TO INPNUM: Begin text with single quote (') 
the same way decimal (.) or OCTAL (*)are 
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Oifwr. comma = yee ~™TTO Fe. SE A a AMY wu 


LATER THAN V3N ROUTINES 


specified. ASCII text is terminated by 
internal carriage return (back single 
quote, 6,.) or by a value less than space 


(29,,). 


DEBUGGER: To prevent accidental exiting of the de- 
bugger only C/X when in the command made of 
the debugger will exit to the Executive. 
Also the period and comma have officially 
been added to OPEN PREVIOUS and OPEN NEXT 
respectivly (x equiv to - and , equiv to +) 
so shifting the keyboard is not necessary. 
Invalid inputs "close" the opened location. 


USING THE MINI-ASSEMBLER: 


C/t 1 &Sc: Initialize cassette drive F#6Pg 


C/L) 'MA ESC 7) 266, 1ESC Read Mini-Assembler into memory if no 
errors, proceed, else repeat load. 


‘C/G' CR: Execute Mini-Assembler initialization: 
Change editor Low Buffer Bound from 2@@, 
set execution address for C/A, set cas- 
ge) TINA 34 Coree, MVITPO sotte Buffer for read of edited source. 
Ee Hf Gow . _To Reso TV Either read in pre-edited source such as: 


(C/b ‘ES ESC CR , (ESC = Re-edit if necessary with: 
— . ~- READ SouhcE Fear tive 
C/R: RE-E>'T MaMoitroey (F or enter new source with editor: 


C/E when editing done and text is off top 
of CRT, exit editor: 

se and assemble: 

C/A the mini-Assembler displays the ending 


address and symbol table and sets up 
the CASBFR to the LAST origin state- 
ment or to the default origin of end 
of source + 1 and sets up CAS BFREND 
as end of object + 1 so assembled 
program can be saved: 


c/s ‘AB (ESC and/or executed directly: 
c/a & 
If a reset is performed with the mini-assembler already in 
memory, the initialization must be executed again: C/G B 26g 
(ESC to reset the editor low buffer boundry. 

CHANGES IN PDSV3N MAMORY MAP 


OUTEND deleted 
AEXEC W0Ga-GUOB--- ‘C/A execution address 
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Changes in Memory cont...... 


ENDCHR 
OUTBUF 
LSTCHR 
BFRPTR 


Hardware interrupt vectored to 919g 
Software interrupt vectored to 9194 


GP1P --- 
deleted 


g@13 --- 
deleted 


Last keyboard character 


Terminate editor character 


Non-Maskable interrupt vectored to 9198 


ADD 32 
ASCBIN 
BINASC 
CASIN 
CASOUT 
CLEAR 
CRLF 
DEBUG 
DIVIDE 
EDITIN 
EDITOR 
EDITRD 
GETCHR 
HOME 
INPCHR 


Cassette output flag NOPRNT (3A): 


FD7B 
FF11 
FF64 
FB77 
FB62 
FCC7 
FDBA 
FE4B 
FFAE 
FDIA 
FD@8 


‘FD18 


FCD4 
FCBF 
FE58 


Bit 7 
Bit 6 
Bait 5 


l=Yes, 


Cassette status 
Character I/O 


Blockname 
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FECE 
FBQD 
FDA3 
FF92 
deleted 
FEF3 
FD64 
FB8C 
deleted 
FD1g¢ 
FD73 
FBB@ 
FB7@ 
FB2D 
deleted 


Haat 
GGGb2 
BAGGZ 
PaaS 4 
boo0bE 
eeaga? 
6683 
Bagas 
66618 
GOG11 
6aei2 
GoG1F 
6aei4 
HOGi5 
66816 
Babi - 
BHGis 


NAM FOS~2 
OPT NOPAGE 
OPT QO. NOG 
OPT SYMBOL 


COPYRIGHT 1976 SPHERE CORPORATION 
S4@ NORTH 4TH EAST; NORTH SALT LAKE, UTAH 840534 


SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION. 
DISTRIBUTION AND USE OF THE PDS SOFTWARE 

NO COPIES MAY BE MADE OR DISTRIBUTED WITHOUT THE 
WRITTEN PERMISSION OF SPHERE CORP 


PDS-2 WAS DERRIVED FROM PDS-VYEN TO ALLOW KEYBOARD 
LOADING OF CASSETTE TAPES AND IMPLEMENT OTHER FEATURES 
TO DATE PLANNED. BUT FOR WHICH THERE WASN°T ENOUGH ROOM 
THE MINI-ASSEMBLER HAS BEEN REMOVED AND PLACED ON 
CASSETTE TAPE TO ALLON FOR THESE NEW ROUTINES 


as 


8O024 
GGG25 


“9825 — 


eee? 
90022 
aGG29 
pag20 
AGOF1 
pna72 
AGA? 
pao24 
HGBE5 
90026 
BAGS? 
HObse 
aaaz9 
90040 
aoad4 
90042 
Hen4> 
aaodd 
Han45 
96046 
B0047 
abads 
90049 
90050 
ABOSL 
Wwse 
HGASS 
Hon54 
Gag55 
90056 
AoasF 
Hoa53 
HeasS 
pea8a 
PHIEL 
Hoag? 
Hens2 
Booe4 
HODES 
Aeoes 
BODE? 
Hoss 
AooES 
ga070 
HOGFL 
pan72 
AGHFE 
Board 
HOOF5 
B0076 
Fakes 
bwa73 
HG0F9 
Boga0 
HOGS 
3882 
Pos aes 


g2008 


b268 
H20S 
8205 
8208 
820A 
825C 


Bees 
ana4 
aan4 
e685 
BoB 
A606 
aeaaF 
Boas 
aOR 
8aGA 
BGaC 
HORE 
90108 
A043 
aa14 
oo16 
agLA 
aG1c 
aaZO 
pa22 
aaz4 
po28 
apz8 
gG2A 
aZC 
GG2E 
8az8 
Ha32 
BOOZE 
bG25 
az 
BOZA 
AB3C 
HOSE 
en48 
EG1F 
E1EG 
E1FF 
Fade 


BOBL 
HasL 


CE 8297 
DF OA 
CE 8336 
DF 8c 
DF 3c 
rE FCSD 


Hee Teal? gaa 


A 
L 


PSEUDO REG B 
«htt BYTE 
~A0 BYTE 
PSEUDO REG A 
«HI BYTE 
ah BYTE 


CASS STAT 

RASSM EXEC ADDR 

START OF I.°Q BFR 

END OF I.°0 BFR 
TERMINATE EDITOR CHAR 
LAST CHAR INPUT 

MOVE SOURCE 

NOVE DEST 

END OF MAIN MEM 

CURSER ADDR 

PTR TO END OF LON EDIT TNT 
PTR TO START OF HI TXT 
PTR TO BFRD TST START 
PTR TO ASM SRC CODE 
QBS QUTPUT ADDR 

ASH OPERAND YAL 

SYMNTBL VAL 

SAYE FOR BKPT 

ADDR OF BKPT 

6H = EDIT OFF. NOT 8 = ON 
CASS BLK NAN 

NUMERIC SCRATCH 

ACTA ADDR 

NON-ZERO = DISP ON CRT 
START CASS BFR 

END CASS BFR 

PC 

RIGHT CHAR LINE i 

LEFT SIDE BOTTOM OF CRT 
LAST CHAR ON CRT 

ADDR OF PIA FOR KBD."2 
ADDR OF PIA FOR KBD."1 
ACIA ON VALUE 

ACIA OFF ¥YALUE 


= ADDR OF SRC TST TQ BE ASSEMBLED 


ST ORIGIN 
oe 


O° OF ASSMNBLD OBS 


INIT EXEC ROBR 


SET BFR ADDRES 
EDIT 


CASS 


ARB Eau #54 
ARS Eel #04 
AR2 Eau #05 
ARA Ea@u #06 
ARI E@Qu #06 
ARG Eau #7 
PIGIT EQU $93 
CSTATS EQu #69 
REXEC EQU #0A 
BUFADR EQU #8C 
BUFEND Ew $HE 
ENDCHR EGU #10 
LSTCHR Eau #1iz 
SRCADR EQU id 
DSTADF EWU #16 
ENDMEM EQu #1A 
CSRPTR E@u #10 
BUFFLO EGU #20 
BUFFHI Eau #22 
SCNPTR EQ #24 
SRCASM EQU #26 
DSTASH EQ #28 
ONDYAL Ei #2A 
SYMVAL EQU 20 
BRKSAY EQU #2E 
BREADR EQU! #38 
EDIT E@u #32 
BLENAM EG #35 
IQBUFF Ew! #25 
RACIANO EQu #28 
NOPRNT EQ! #3A 
BFRFTR EQ! fC 
BFRSZE Eau $3E 
PCVAL Eat! #48 
FRSTLN EQ! $EGIF , 
LASTLN EQ #E1E0 
LASTCH E@U #ELFF 
KBDPIA EQ $FO40 
*KEDPIA EQU $F aoe 
ON Evi #B1 
OFF Eau #51 
# 
* MINI-ASSEMBLER 
*# 
* ON ENTRY: 
* SRCASM = 
* BUFFLO = DEFAULT ORIGIN 
* 
* ON EXIT: 
* BFRPTR = BUFFLO OR L 
* PCYAL, BFRSZE = LST 
* 
ORG #2608 
* 
ASMINT LDS #ASMXER 
STs REXEC 
LDS #ASMEND 
STS BLUFADR 
STx BFRPTR 
JMP EXEC1 


RIN TO EXEC 


ao0ee 
BHR55 


BoG9 
aggaF 


Ho1n8 
HoLeaL 
609102 
HGL5F 
ao104 
HOLOS 
HaLGE 
HeLa? 
HaLa 
HaLG9 
He11e 
G8411 
HoL12 
HOL47 
66114 
HeL15 
gr 16 
80x17 
gea113 
88119 
beL20 
HGLS1 
HG122 
HOLST 
Ho124 
H9125 
H0126 
OgL27 
HG129 
AoaL29 
G8470 
BoLTA 


BOLTS 
GOLIT 
bois 
GOL 35 
O8156 
Boise 
Oe1LT3 
HHLTS 
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He At 
By iz 
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O20F 
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A215 
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B21 
G225 
G210 
AZ1E 
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825A 
82SEC 
H2TE 
BSF 
245 
242 
O24 
A246 


B243 = 


@24A & 


G24C 


H24p = 
O24E § 


B258 & 


g252 
8254 
H25S 
§259 
H259 
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B25 
O25E 
B25F 


G26 
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eda! 
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ecee> 


ee 
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in int plat D> by 


mor mm ae: 


a a] 


PUL 


am i Ts 


G3 DD 


2m DoD um DUD 


Bm DoT 


oD 


ea) 


# P46 SET 1ST CHAR 


END COL 


Bs 8 
“re 4 

AR 

Al 

, PPD COL 
#26 

AS 

52.8 ’ 

53, 


4TH COL 


BUMP INDEN To 
#EEG END LINE 
BUMP CHAR 


#feo DONE? 
AP ND 


#FEO 
AM 
HPF 
Ad 


Fill 


Ax 
CRITOUT 


SYMTRE 


HOL50 27h FE e295 LDS AX 
W151 o230 79 RTS 

” 98152 # 

AGL5S G82S84 26 80 ADONE ERS ASMENT 
HoL 54 # 

GG1595 @28F op ag AS BSF Aid 
Pate G25 of Aid BSP RS 
VCASP G25P 8D 90 Ae BSF AL 
H68153 6299 86 25 Ad LPA A OHS 
HOL59 82S FF O295 AP STN AN 
H0168 O825F BD Fped ISP FUTCHR 
80151 8291 FE a295 Los A 
HHIE2 H2394¢ FS RTS 

G8L82 # 

HH1e8ed 8235 Baa? AN PME Z 
baLES * 

HG1i665 @29F7 CE Gad2 ASMNEQ LDN ##42 CLEAR SYMBOL TABLE 
HOLS? 829A 86 Fa LDA A $F 
H6168 G@29C AP 6G AIA STA A &S 
OGLE9 O25E ae INS 

H6179 O25F Bc eece CPs #£00 
HG171 O2AZ 26 FS BENE Ald ’ 


G0172 O2A4 FF GON CLR AR? INIT CTR TO PASS 4 

OO17 G2AP DE 20 ASM1 LON BUFFLO SET 

GO174 O2A9 DF Fe STN BFRPTR PTP FOR CASS: 

GG1FS AZAR DF 4a STS PCVAL Pc 

HO1FS O2AD DE 26 LDS SRCASM LOAD ADR OF LINE i 

OG177 O2ZAF DF OF ASMLA STS TMP SAVE ADR OF CURRENT LINE 

O8178 G2B1 AS og LDA a8 LOAD SYMBOL 

HO1F9 H2BE ES oF LDA ey LOAD OPERAND TYFE 

HH190 82B5 C1 40 CMP BB #¥#°. IF ®, LOAD SYM VAL 

OO181 O2BP BP F2 PEG INDADR 

182 92B9 99 INS 

WHS? H2BA Ae 

H6184 G@2BB 48 

Ge185 A2ec ae INS 
9 
8 


a Be 8) 


HHL186 B2BD &: 
BOL1S" G2bE ak 
HHLSS BSB B 
GGL59 G200 BO FFL JSR ASCBEIN CNT OGPERAND TQ BINARY 


HOL39H G20s DF sh 5TA B ONDYVAL 

GG191 205 9F 3b STR A ONDYVAL +1 

BHL92 B20F OE BS SyYMBL LDN TMPL LOAD LINE PIR 
BOHL9SS H209 Ae ae LOA A a8 LOAD SYMBOL 
GG194 82ce Es OL LOR B 1:8 

BG195 Hech DE 4a LDN PCVAL STMBOL = PC 
@8156 G2CF DF 2c STN SYMVAL 

G19" G@2D1 OF SE STN BFRSZE SET CASS END 
@O8193 H2D3 CL sd CHP EB ##°= LABEL EQUATED? 
GOLS9 G205 26 ac BNE ASN SKIP IF NO 


G28 G2lF" BE 2A LDS OND VAL SYMBOL VALUE GETS 
@8201 GSD9 DF 2c ST SUMVAL OPERAND VALUE 


GO202 G2DB F1 2a CMP A OHS" TEST FOR ORIGIN 
HHSGS G2 26 11 BME ASHE SKIP IF NO 

Ge2o4 BSDF OF se STS BFRPTR SET CASS PTR 

G25 @2b1 26 8d BRA ASNS 

HO206 GSES C1 20 ASM2 CMP B #¥° TEST FOR END 

OOF UZES 2? BF BEQ ASME ’ 
mweEHe HSE? FD Hoed TST ARS 

GO209 O@2EA 26 95 BNE AQONE EXIT IF PASS 2 
OB8215 G2ee hF O4 5TH B ARS SET CTR 70 PRSS 2 
@G211 G2EE 20 Br BRA ASML 


GH212 O2FH SP dd ASME BSR  SYMPTR GET StI TBL ADR 
GO212 G2F2 86 20 LDA A OSYMVAL «© STORE SYMBOL ADDR 


S44 ASFA AF BE STA Lx 
sale O2F4 AS OG nn enn pole ne Yer | 


HELIO B2rlh FE 8235 LOX AM 


3151 8288 29 RTS 
 OOL52 * 
HOLS2 A281 26 §C ADONE BRA ASMENT 
HO1 54 + 
@G155 8282 6h 8H AS BSF Aid 
‘156 8285 8D BE Ad BSR AZ 
belSF B2sr 8 AZ ESF Ail 
HO153 : Fil LDA A #* 
GGL59 82 AP STN AS 
GH150 6 ISR UTCHR 
GH151 LDS AS 
OG162 822 RTS 
G815F * 
H8164 G23! IHS AN RINE 2 
GOLE5 * 
HG1e6 G29" CE BH42 ASNXEG LON #F42 CLEAR SYMBOL TABLE 
HG1i68" 829A 86 Fe LOA A #$FO 
O6168 G2sc Ar Go All STA A a 
G@G169 G25E GF INS 
G617°0 829F sc 8ace CPx #FC00 
GHL°1 SAL 26 FS ENE AIL 
G@61i°2 G82A4 FF Band CLR ARS “INIT CTR TO PASS 1 
@G1°2 G2AF DE 26 ASML LDN EUFFLO SET 
G@1l74 G2A9 DF se STx BFRPTR PTR FOR CASS, 
86175 82AB DF 4a STX PCYAL PEt 
OG176 G2AD DE 26 LB SRCASN LOAD ADR OF LINE 41 
G61°° G2AF OF G2 ASNLA STN THPL SAVE ADR OF CURRENT LINE 
HH178 @2B1 Ae Os LOA A 8.8 LORD SYMBOL 
G@OL°9 G2bs Es GF LDA B 78 LOAD OPERAND TYFE 
66186 G2bS C1 48 CMP BO ##°@ IF @, LOAD S+'N VAL 
PAISL G2B7 sr 72 BEt INDADR 
182 G2B9 88 INS 
G@81SS 828A as INS 
HH1IS4 O26B OS INS 
G@G185 82ec as INS 
HH186 B2ED 8s INS 
@O1S°" O28E 8s INS 
HHLSS B2BF O38 INK 
HG159 GSC8 BON FF1L JSR ASCBIN CNYT OQPERAND TO BINART' 
OH198 H2C03 DP 2A STA B ONDYAL 
G0191 G2C5 97 2B STR A ONDYWAL +1 
BOL92 B2C7 OE ge SYMBL LDS TMP1 LOAD LINE PTR 
G@G192 209 Ae Ge LOA A ae LOAD St'NBQL 
O@61594 8208 Es Ot LOR B 1.8 
HO195 G2C0 DE 4a LDH PCVAL SYMBOL = PC 
@8196 G2CF DF 2C STH SYMVAL 
G19" G2D1 OF 3E STx BFRSZE SET CASS END 
B6193 H2d3s Ci se CMP BG #¥°= LABEL EQUATED? 
G@GLS9 G2D5 26 aC BNE ASN2 SKIP IF NO 
G20 G2l7 DE 2A LDDs ONDYVAL SYMBOL VALUE GETS 
@OL201 G2D8 DF zl STX SoMVAL OPERAND WALUE 
GH202 B20B 81 28 CNP AO ORES” TEST FOR ORIGIN 
BGS0S H2DD 26 141 BNE ASNS SKIP IF NO 
G@G204 BSDF DF sc STX BFRPTR SET CASS PTR 
G8205 G2ZE1 26 8p BRA ASNS 
HE2H6 GSE C1 2H ASM CMP B #¥° TEST FOR END 
Sor G2ES zr as BEt! ASNS , 
RdZhs GZEF FD aead pag ARS 
GH209 H2EA 26 95 BNE RDONE EXIT If FASS 2 
BG210 GseC OF O4 STA B ARS SET CTR TO PASS 2 
O8211 OSEE 2h BFP BRA ASML 
BH212 OSFH Sd 41 ASNS BSR SYMPTR GET STM TBL ADR 
G@G@213 G2F2 36 2c LOA A SY'NYVAL STORE SYMBOL ADDR 
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